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SECTION 1 - INTRODUCTION 


This document describes software developed to assist in analysis of Sky lab S191 
and S192 experiment data. Experiment S192 measured radiation from the Earth 
in discrete wavelength bands. These discrete bands were organized into sepa- 
rate telemetry channels. Experiment S192 instrumentation scanned an area of 
the Earth in each of the specified wavelength bands. Although this instrument 
recorded data from a conical scan, Johnson Spaceflight Center (JSC) scientists 
at Houston were supposed to send line-straightened data to Goddard Space Flight 
Center (GSFC) experimenters. Each channel (wavelength band) scan would con- 
tain the intensity of that wavelength band at discretized points on, the scan line. 

A combination of channel scans, covering a region on the Earth's surface, 
would produce an image of that region similar to a color television image, in 
that discrete wavelengths were superimposed. 

Experiment S191 also measured radiance from the Earth. The difference be- 
tween experiments S191 and S192 is that experiment S191 examined one "spot" 
(target area) on the Earth in all wavelengths. This instrument was very similar 
to the instrument flown in the Nimbus Infrared Interferometer Spectrometer 
(IRIS) Project. It was astronaut operated, and measured the spectral radiance 
over a milliradian circular field of view. 

Programs to access data from the JSC-supplied tapes are described in Sec- 
tion 2. The nominal data format is given in Appendix J. It should be noted, 
however, that numerous actual format deviations were encountered. Several 
of these problems are described in Appendix B. These format deviations re- 
quired frequent and often significant modifications to the data-accessing pro- 
grams. The exception was the general S191 list program (LIST191) which was 
not updated at the principal investigator's request. The most current version 
of the S192 access program (RD192) is described. 


1-1 


The format of the S191 JSC-supplied tapes was found to be inconvenient for 
analysis at GSFC because radiances and wavelengths were not given in ascending 
wavelength order and because values were spread among two separate paired 
tapes. Program NVVT191 reordered the data and placed it in a more easily ac- 
cessible form on new tapes (one for each paired set sent by JSC). Whenever 
the S191 format changed, significant changes were required in NWT191. Since 
many tapes were shipped which utilized a particular earlier format of the S191 
tapes, both that form of NWT191 and the most current one are included. The 
change in wavelengths used which was associated with the format change is re- 
flected in Appendix K. 

Software to utilize existing algorithms developed by Dr. B. Conrath (GSFC) was 
developed in cooperation with H. Powell (PMI) and is described in Section 3. 

The mathematical basis for those algorithms is described in References 1 
and 2. CSC modified the programs developed by Dr. Conrath to accommodate 
S191 data. Those programs with minor modifications will not be separately 
documented as they have already become a part of the Goddard library. The 
newly written subroutines and those with significant modifications are discussed. 

Since no data existed in the humidity-associated regions (6 to 7 microns), the 
humidity inversions were never tested. Since the thermal band data was sus- 
pected to be poor for inversions (this suspicion was confirmed (Appendix B)), 
the development of the temperature portion was never completed. 

The programs are described in the expectation that a future project with Skylab- 
type data may utilize them. In addition to the preparation of the Temperature 
Humidity Inversion Programs, CSC developed a block data generation routine 
(BLKDAT) which is also included in this presentation. Also, a separate S191 
plot program is described, the output of which was utilized by GSFC scientists. 

The last group of programs described in this document are the various S192 
plotting programs. These programs utilize the RD192 accessing system to 


acquire the data, then calculate such parameters as reflectance, temperature, 
and optical thickness. Finally, plots of these and alphanumeric equivalents 
based on these are made. All programs utilize the Wolf Plot Package allowing 
printer, CalComp, or microfilm output. 


SECTION 2 - DATA ACCESS PROGRAMS 


2.1 LIST 191 

2.1.1 MAIN 

2. 1. 1. 1 Identification 

English Language Title: S191 Tape Content Listing Program 
Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2. 1 . 1 . 2 Functional Procedure 

This program lists in labeled numbered pages the values fotmd on the S191 tapes 
produced prior to June 1974. 

2. 1. 1. 3 Formal Procedure 

MAIN calls subroutine RDI-I191, which accesses housekeeping data, and the 

housekeeping data is reordered and listed. The user specifies as input the 

form in which he desires the independent variable (i.e. , either microns of 

wavelength or cm ^ wavenumbers). Subsequently, the subroutine entry RD191 

is used to repeatedly access regular data records. Subroutine FRATIM con- 

-4 

verts the frame time, given in 10 seconds and converted to hours, minutes, 
and seconds. Data is then listed by JSC title, i. e. , XYZ where X is the filter 
number, Y is always 0, and Z is the detector used. When an error is encoun- 
tered, appropriate explanatory messages are printed. If the error was on the 
expected record size, the program terminates after a dump is executed (CALL 
ABEND). It should be noted that this dump is suppressed unless appropriate 
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override data is provided on the job card. When a normal end of file is encoun- 
tered, a descriptive message is plotted and the program terminates normally. 

2. 1.1.4 Coding Information 
Calling Sequence: N/A 
COMMON Storage Used: N/A 
Input and Output: 

Unit 5 - NTYPE option 

= 0, wavelength 
= 1, wavenumber 

Unit TPS191 - Input 9-track, density 3, unlabeled, JSC-supplied S191 tape 
with BLKSIZE 2520 

Unit 6 - Error, debug, and general message unit on printer 

Unit 9 - Tape Content Listing unit on printer 

■r 

Error Returns: Noted above. 

Called Subroutines: ERRSET (system routine), RDII191, RD191, FRATIM, 
ABEND (system routine) 

2. 1. 1. 5 Programs or Subroutines To Use MAIN 


N/A 


2. 1. 1. 6 References 
N/A 

2. 1. 2 FRATIM 

2. 1. 2. 1 Identification 

English Language Title? Frame Time Conversion Program 
Programming Language: FORTRAN 
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Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

2.1.2. 2 Functional Procedure 

-4 

On regular data records, frame time is recorded in 10 seconds. For ease 
of understanding, the time is converted to hours , minutes, and seconds. 

2. 1.2.3 Formal Procedure 

The routine utilizes repeated truncations of divisions of the input and subtraction 
from that input to yield the required units of time. 

2. 1. 2. 4 Coding Information 

Calling Sequence: CALL FRATIM (IY, ITIME) 

-4 

where IY is the input frame time in 10 seconds, and is 1*4 data 

ITIME is the output array of time in hours, minutes, and seconds, and 
is 1*2 data 

COMMON Storage Used: N/A 

Input and Output: Through the calling sequence. 

Error Returns: N/A 
Called Subroutines: N/A 

2. 1. 2. 5 Programs or Subroutines To Use FRATIM 
MAIN of LIST 191 and NWT191. 


2. 1.2. 6 References 
N/A 
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2.1.3 MYERR 


2. 1. 3. 1 Identification 

English Language Title: Abnormal termination routing routine through ERRSET 
when a maximum allowable number of system errors is encountered. 

Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

! 

2. 1.3.2 Functional Procedure 

One option of the system ERRSET routine allows users to control system action 
after the maximum number of system errors (209-214) are encountered through 
a control switch to a specified user routine. The routine here, MYERR, thus 
calls ABEND to yield a dump for ease of debugging. 

2. 1. 3. 3 Formal Procedure 

The only executable statement in the program is the call to the system routine 
ABEND. 

2. 1. 3. 4 Coding Information 

Calling Sequence: CALL MYERR (no arguments) — never actually appears in 
code; control passed by routine ERRSET. 

COMMON Storage Used: N/A 

Input and Output : 

Unit SYSUDUMP - Requires SYSUDUMP JCL card 
Error Returns: N/A 
Called Subroutines: N/A 
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2. 1. 3. 5 Programs or Subroutines To Use MYERR 


MAIN of LIST 191, T91 (MAIN of NWT191) and R92 (MAIN program of RD192) 

2. 1. 3. 6 References 
N/A 

2.1.4 RDI1191 (Entry RD191) 

2.1.4. 1 Identification 

English Language Title: S191 tape accessing program 
Programming Language: Assembly Language Code 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2. 1.4. 2 Functional Procedure * 

This subroutine reads the S191 data tapes, calculates the actual radiance value 
from its parameterized form, and passes back the values to the calling program 
for listing. 

2. 1.4. 3 Formal Procedure 

The first part of the program, RDH191, which is called once, accesses and 
unpacks the Housekeeping data record, calculates and stores the data slopes 
and intercepts, then passes unpacked Housekeeping data to the calling program 
for listing. Subsequent calls enter through RD191. There, radiance data pa- 
rameters are accessed and unpacked. 

JSC records data in 1-byte parameter values (P) from which, using slopes (S) 
and intercepts (I), radiance values (R) can be calculated as R = S * P + I (see 
Appendix A for formats). These values are placed in the array DATH and 
passed to the calling program for listing. The program was written prior to 
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tape reception, so it allows for the promised possibility of 2-byte length data. 
The logic never had to be used. Since more than one "block" of data appears 
in one physical record, the tape need not be accessed each time a spectrum is 
accessed, unpacked, modified, and stored. However, a running counter of how 
many "blocks" have been used and, therefore, a record of where accessing is 
to commence within the array of physical block contents, DAT, must be kept. 
This counter is checked upon entry and the record reinitialized whenever a new 
physical record must be sought. 

Finally, variables called BUGX, where X varies between 1 and C are used to 
aid in tracing errors (should any unforeseen ones arise). These are initialized 
to 0, but are set to their X value whenever certain operations are performed. 
Bugs associated with Operations occurring upon repeated entries are reinitial- 
ized before control returns to the calling program. 

2. 1. 4. 4 Coding Information 

Calling Sequence: First entry CALL RDH191 (DATH, NCOND, NTYPE) 
Subsequent entries CALL RD191 (DATA, NCOND) 





where DATH is the array of tape housekeeping data 

NCOND is an indicator supplied by subroutine RDH191 
= 1, housekeeping data 
= 2, regular data 
= 3, end of file 

= 4, error, e. g. , variable for radiance parameter was more 
than 2 bytes long 

NTYPE is ail indicator supplied by the user 

= 0, wavelength in microns is desired for independent variable 
= 1, wavenumber in (cm) -1 is desired for independent variable 

DATA is the array of regular radiance data 
COMMON Storage Used: N/A 
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Input and Output: » 

Unit TPS191 - 9-track; RECFM = U; blocksize = 2520; unlabeled JSC- 
supplied S191 input tape 

Error Returns: If NCOND = 4, some error was encountered. Among the pos- 
sibilities are: (1) there were more than the promised 1 or 2 bytes per record; 
(2) the blocksize was too large; (3) the logic for calculating the index value of 
the input array in the assembly access is incorrect — the wrong value was pres- 
ent. Either the logic was in error or the tape was not as promised. 

Called Subroutines: N/A 

2. 1.4. 5 Programs or Subroutines To Use RDI-I191 
MAIN of LIST 191. 

2. 1. 4. 6 References 
N/A 

2.1.5 Hardware Requirements 
OS/360 tape drive for input tape 

OS/360 card reader for deck and NTYPE input data card 
OS/360 printer for listings 

2.1.6 Core Requirements 

The core requirement for the entire program is 200 bytes. 

2.1.7 Time Requirements 

The time requirement (which varies significantly) is highly dependent upon the 
size of the tape sent by JSC. At present, it has been found that no tape has 
required more than 4 minutes CPU and 4 minutes I/O. Most require less than 
half those figures. 


2.1.8 Card Input 


One containing a numeral for NTYPE 

= 0, wavelength in microns 
= 1, wavenumber in cm -1 

2. 1. 9 Data Card Format 
Format (15) 

2. 1. 10 Output 

A sample output is given in Appendix A together with a listing, JCL, and input 
card. 




2.2 NWT191 


2.2.1 T91 

2. 2. 1. 1 Identification 

English Language Title: Driver Program for creation of GSFC version of 
S191 tapes 

Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2. 2. 1.2 Functional Procedure 

This program reads the appropriate positional angles and serves as the driver 
for the main tape-creating program, NWT191. 

2. 2. 1. 3 Formal Procedure 

The desired output tape is read and placed in COMMON TAPEN for the use of 
subroutine WRITIT. At user option, zenith angle data (extracted by hand from 
Boresight camera booklets when they are available) and/or pointing angle data 
(extracted by hand from Boresight camera films when they are available) is 
read by the program. Then their times are converted to a form compatible 
with subroutine ZENPTN, which uses them, and all are placed in COMMON 
VALUES for subsequent use. It should be noted that pointing angles (down, 
left, up, right) never have more than two values nonzero. Subroutine NWT191 
is called to perform the actual tape access and new tape creation. Then, at the 
end of file, the output tape is unloaded, a descriptive message is written, and 
the program terminates normally. 
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2. 2. 1. 4 Coding Information 


Calling Sequence: N/A 
COMMON Storage Used: 

TAPEN contains: TAPE - Real * 8 unit 12 output tape name 

VALUES contains: ITIMPT - Associated values for pointing angle data 

(calendar day, last two digits of year, time 
-4 

into day in 10 seconds) 

PTING - Pointing angle data array 

ITIMZN - Associated time values array for zenith 

angle data (calendar day, last two digits 

-4 

of year, time into day in units of 10 sec- 
onds) 

ZENVL - Zenith angle data array 

NOPT - Number of groups of pointing angle values 

(group consists of the four different pointing 
angles) 

NOZE - Number of zenith angle values 

ISDTPT - Logical variable indicating whether pointing 
angle data is available 

ISDTZN - Logical variable indicating whether zenith 
angle data is available 

Input and Output: 

Unit 5 - N/A 

New Card - Tape name (TAPE); format (AS); left adjusted 
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New Card - Presence of pointing data (ISDTPT); format (L5); left ad- 
justed 

New Card - Five time variables (calendar day, year, hour, minute, and 
second); four pointing angle values; format (13, IX, 12, IX, 
312, 3X, F2.0, 3X, F2.0, 2X, F2.0, 4X, F2.0) 

New Card - (Present whether or not pointing angle data is present.) 
Termination indicator A-9 in columns 1, 2, and 3 

New Card - Presence of zenith angle data (ISDTPT); format (L5); left 
adjusted 

New Card - Three time values (hour, minute, and second); fractional 
part of second; elevation; zenith angle; calendar day; year 
of data; format (312, F4.3, 18X, F4. 1, 21X, F4.1, 5X, 13, 
2X, 12) 

New Cai'd - (Present whether or not zenith angle data is present. ) Ter- 
mination indicator -9 in columns 1 and 2 

Error Returns: If NCOND = 2, some error was encountered in processing the 
tapes. An appropriate error message is printed and a dump, through a call to 
the system routine ABEND, is requested. As mentioned earlier, this dump is 
only secured at present if job ID corresponds to the current date (XYY, where 
X is hexadecimal month and YY is day of month). The job then terminates. In 
the later included vei'sions, this possibility was eliminated, though some 
logic remains . Error messages are printed and job terminates whenever any 
unit 5 input is not compatible in values with expected formats. 

Called Subroutines: ERRSET, NWT191, WRITEE (entry to WRITIT), ABEND 

2. 2. 1. 5 Programs or Subroutines To Use T91 


2.2. 1.6 Rcfei’ences 


N/A 

2.2.2 CONV 

2. 2. 2. 1 Identification 

English Language Title: Time Conversion Program (month and day to calendar 
day) 

Programming Language: FORTRAN 

Analyst’s Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

t 

2. 2. 2. 2 Functional Procedure 

The routine converts input month and day to calendar day allowing for leap year 
if necessary. 

2. 2. 2. 3 Formal Procedure 

This routine tests which month is present and whether it is in a leap year. 

Then, depending upon the result, it sets the calendar day equal to the total num- 
ber of days in the preceding months in a standard year plus the day of the month 
(plus 1 for leap year if month is greater than 2). 

2. 2. 2. 4 Coding Information 

Calling Sequence: CALL CONV (YY, MM, DD, JUL) 

where YY is the 1*4 two digit value of the day of the year 

MM is the 1*4 two digit value of the month of the year 

DD is the 1*4 two digit value of the day of the month 

JUL is the 1*4 three digit value of the calendar day 
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COMMON Storage Used: N/A 
Input and Output: N/A 
Error Returns: N/A 
Called Subroutines: N/A 

2. 2. 2. 5 Programs or Subroutines To Use CONV 
NWT191 

2. 2. 2. 6 References 
N/A 

2.2.3 WRITIT 
2. 2.3.1 Identification 

English Language Title: Output tape and printer listing producing subroutine 
for new S191 tape creation program 

Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 
Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- / 

J 

ration 

2. 2. 3. 2 Functional Procedure 

The routine writes the new GSFC version of the S191 data tapes and displays 
the values on the printer for scientists' personnel. 

2.2. 3.3 Formal Procedure 

On the first call to WRITIT, the output tape is mounted. On subsequent calls, 
this logic is bypassed. The data array (currently 450 full words long) is then 
written on the output tape. Next, housekeeping data, such as time and zenith 
angle, are listed on a unit 9 printer output. Then, by utilizing an auxiliary 
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output array, and carefully arranging the content, the wavelength and corre- 
sponding radiance values are printed side by side, four pairs to a line. Control 
then returns to the calling program. The second entry, WRITEE, is used to 
unload the output tape after all spectra formed have been listed. 

2. 2. 3. 4 Coding Information 

Calling Sequence: (Main) — CALL WRITIT (DATUS, IDATUZ) 

(Final) — CALL WRITEE (no arguments) 

where DATUS is the 450 word Real * 4 array of output values (housekeeping, 
wavelengths, and radiances) 

IDATU2 is the 900-word Integer * 2 equivalent array of output values 
(the same array) vised for listing the halfword, fixed-time 
values for the spectrum (in the housekeeping portion) 

COMMON Storage Used: 

TAPIN: Refer to Section 1. 2.1.4 

Input and Output: 

Unit 12 - Output tape unit 

Unit 9 - Printer unit for spectra and housekeeping values 
Error Returns: N/A 

Called Subroutines: MOUNT, FWRITE, UNLOAD (OS 360 FTIO routines de- 
scribed in GSFC manuals) 

2. 2. 3. 5 Programs or Subroutines To Use WRITIT 
WRITIT called by NWT191 assembly routine 

WRITEE called by T91 (main driver program of NWT191 overall program) 

2. 2. 3. 6 References 
N/A 
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2.2.4 ZENPTN 


2. 2. 4. 1 Identification 

English Language Title: Zenith angle and pointing angles determination- 
interpolation routine 

Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

2. 2. 4. 2 Functional Procedure 

ZENPTN utilizes the time arguments passed in the calling sequence to inter- 
polate between data array values passed to it by the Main Driver Program, 

T91, through COMMON, yielding zenith angle (through a subroutine call) and 
pointing angle data. 

2. 2. 4. 3 Formal Procedure 

As described in Section 2. 2. 1. 3, zenith angle and pointing angle data (when 
available) covering the same time period as is covered by the tapes, is placed 
in COMMON VALUES by T91. Upon entry to ZENPTN, the availability of zenith 
data is tested by examination of the logical variable ISDTZN from COMMON. 

If present, a series of time checks ensures that the time requested is within 
data time bounds. The interval within which the input time lies is then deter- 
mined and simple linear interpolation is used to yield the desired zenith value. 

If no zenith data is present or if input time "fails" one of the various time 
checks, the zenith angle is set to zero, an error message is printed (through 
a call to subroutine ERROR), and processing continues. 

A similar procedure, accomplished by a call to subroutine PTING1, yields 
pointing angle values. Control then returns to the calling program. 
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2. 2. 4. 4 Coding Information 


Calling Sequence: CALL ZENPTN (CALDAY, YEAR, FRTM, ZENITH, PTAN) 

where CALDAY is the input calendar day of the year in which the data was 
sensed 

YEAR is the input last two digits of the year in which the data was 
sensed 

FRTM is the input frame time value for the data sensed in units of 
tenths of milliseconds 

ZENITH is the output interpolated zenith angle value 

PTAN is the output array of interpolated pointing angle values 

COMMON Storage Used: 

VALUES: Refer to Section 1.2. 1.4 

Input and Output: N/A 

Error Returns: In any error situation, the sought zenith value is set to zero 
and an appropriate message is printed by subroutine ERROR. Exit from the 
routine is a conventional exit and does not preclude further processing. 

Called Subroutines: ERROR, PTING1 

2.2.4. 5 Programs or Subroutines To Use ZENPTN 
NWT191 

2. 2. 4. 6 References 
N/A 

2.2.5 PTING1 

2. 2. 5. 1 Identification 

English Language Title: Pointing angles determination-interpolation routine 


Programming Language: FORTRAN 


Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

2. 2. 5. 2 Functional Procedure 

PTING1 utilizes the time arguments passed in the calling sequence to interpolate 
between data array values, passed to it through the COMMON VALUES, yielding 
pointing angles. 

2. 2. 5. 3 Formal Procedure 

Upon entry to PTING1, the availability of pointing angle data is tested by ex- 
amination of the logical variable, ISDTPT, from COMMON. If present, a series 
of time checks ensures that the time requested is within data time bounds. The 
interval, within which the input time lies, is then determined and simple linear 
interpolation is used to yield the desired pointing angles. If no pointing angle 
data is present, or if input time "fails" one of the various time checks, the 
pointing angles are set to zero, an error message is printed (through a call to 
subroutine ERROR), and processing continues. Control then returns to the 
calling program. 

2. 2. 5. 4 Coding Information 

Calling Sequence: CALL PTING1 (CALDAY, YEAR, FRTM, PTAN) 

where CALDAY' is the input calendar day of the year in which the data was 
sensed 

YEAR is the input last two digits of the year in which the data was 
sensed 

FRTM is the input frame time value for the data sensed in units of 
tenths of milliseconds 

PTAN is the output array of interpolated pointing angle values 
COMMON Storage Used: 

VALUES: Refer to Section 1. 2. 1. 4 
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Input and Output: N/A 

Error Returns: In any of the possible error situations, the sought pointing 
angles are set to zero and an appropriate message is printed by subroutine 
ERROR. Exit from the routine is a conventional exit and does not preclude 
further processing. 

Called Subroutines: ERROR 

2. 2. 5. 5 Programs or Subroutines To Use PTING1 
ZENPTN 

2. 2. 5.6 References 
N/A 

2.2.6 ERROR 

2. 2. 6. 1 Identification 

English Language Title: Error message printing routine 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

2. 2. 6. 2 Functional Procedure 

ERROR serves as the problem description vehicle for subroutines ZENPTN 
and PTING1. 

2. 2. 6. 3 Formal Procedure 

The arguments include the number related to the type of error which occurred. 
Upon entry into ERROR, the message printed is determined by the value of that 
input number. After the message is printed, control returns to the calling 
program. 
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2. 2. G. 4 Coding Information 


Calling Sequence: CALL ERROR (IERR, YEAR, CALDAY, FRTM, &IIII) 


where IERR is the input number indicating the type of error which occurred 

YEAR is the input last two digits of the year in which the data asso- 
ciated with the error was sensed 

CALDAY is the input calendar day of the year on which the data asso- 
ciated with the error was sensed 


FRTM is the input frame time at which the data associated with the 
error was sensed in units of tenths of milliseconds 


&ini is the input statement number in the calling program to which 
control returns upon exit from ERROR 


COMMON Storage Used: N/A 


Input and Output: 


Unit 6 - Printer unit for error messages 
Error Returns: N/A 
Called Subroutines: N/A 


2. 2.6.5 Programs or Subroutines To Use ERROR 
ZENPTN, PTING1 

2. 2. 6. 6 References 
N/A 

2.2.7 NWT191 

2. 2. 7 . 1 Identification 

English Language Title: Tape creation routine for GSFC versions of S191 tapes 
Programming Language: Assembly Language Coding 


2-19 


Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2. 2.7.2 Functional Procedure 

NWT191 reads the paired S191 data tapes, unpacks and reorders the data, and 
calculates radiance values. 

2. 2. 7. 3 Formal Procedure 

The first part of die program, whose logic is used only once during each exe- 
cution, opens the tapes and accesses, unpacks, and stores die Housekeeping 
record. Note that the units on which input tape A or tape B of the paired S191 
tapes are mounted is not crucial (i.e. , unit B could be mounted for unit A and 
vice versa). The program will check for certain indicative parameters and will 
access data accordingly. It calculates the associated slopes and intercepts, 
then stores them. Subroutine CONV is called to yield equivalent calendar day 
for input month, day, and year of data. The next part of the program is con- 
cerned with the accessing, unpacking, modification, and reordering of radiance 
data. Since two to three detectors are present per filter and since data often 
overlaps, more than one detector value for a filter is nonzero. The program 
will average calculated nonzero values and place the average as the final radi- 
ance value. The last portion accesses, unpacks, and modifies the Skylab data 
(latitude, longitude, etc.). Subroutine FRATIM is called to convert input frame 
time to actual hour, minute, and second. 

Subroutine ZENPTN is called to provide zenith and pointing angle data (if it is 
available). Finally, subroutine WRITIT is called to list spectrum content and 
write the new tapes. The program tests to see if data is still available within 
the current physical record. If so, processing continues; if not, a new physical 
record is accessed and current access counter is reinitialized. 
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Inserted BUG values aid debugging - if an abnormal termination occurs. 

A minimal amount of tape description is given in the ALC routine to enable 
most changes to be made in the users JCL. 

The primary difference in form between version 1 NWT191 and version 2 
NWT191 lies in the position and number of wavelengths and associated radiance 
values. Early tapes had ISO values, six of which were repetitions (174 distinct 
values). The ordered values vacillate back and forth between tapes and within 
filters and detectors. 

The newer tapes contain 218 distinct wavelengths (some had 217, but current 
ones are all 218). Although access does vacillate and groups are unordered, 
the ordering does not involve inter-filter or inter-detector reordering. See 
Appendix K for wavelengths present on earlier and on current tapes. For sim- 
plicity and speed, the new program was a modified version of the old. How- 
ever, had the second form of tapes been the only type sent, programming logic 
and approach might have been different. 

2 . 2 . 7 . 4 C oding Information 

Calling Sequence: CALL NWT191 (NCOND) 

where NCOND is an output indicator 

= 1, an end of file was encountered 
= 2, an error condition was present 

COMMON Storage Used: N/A 

Input and Output: 

TP191A, TP191B - 9-track input data tapes supplied by JSC in pairs for 

each time period 

Error Returns: One error return, originally present, was eliminated from 
later versions. Because other programs were pressing, some of the logic, 
not used, was not eliminated. 
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Called Subroutines: CONV, FRATIM, ZENPTN, VVRITIT 
2. 2.7.5 Programs or Subroutines To Use NWT191 
T91, the Main Driver Program for the NWT191 package. 

2. 2. 7. 6 References 
N/A 

2.2.8 Hardware Requirements 

Two OS/360 tape drives for input tapes 
One OS/360 tape drive for output tape 
One OS/36 0 card reader for deck 
OS/360 printer for listings 

2.2.9 Core Requirements 

The core requirement for the entii’e program is 200K bytes. 

2.2.10 Time Requirements 

This figure is highly dependent upon the size of the tapes sent by JSC (which 
varies significantly) and upon the availability of zenith and pointing angle data. 
At present, it has been found that average rim time is 1 minute of CPU and 
1 minute of I/O time. 

2.2.11 Card Input 
See Section 2. 2. 1. 4. 

2.2.12 Data Card Format 
See Appendix B. 

2.2.13 Output 

A sample is given in Appendix B. 
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2.3 RD192 


2.3.1 R92 

2 . 3. 1. 1 Identification 

English Language Title: S192 Driver Program for simple list 
Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2. 3. 1.2 Functional Procedure 

R92 is used to yield listings of S192 data tapes whenever no other calculations 
with the data are desired. 

2. 3.1. 3 Formal Procedure 

NAMELIST ASK is accessed to determine if Housekeeping data, scan data, or 
both are to be listed. The logical variables thus input are checked and the 
values for the RD192 call sequence are set accordingly. The remainder of the 
program is a continuous looped access through calls to RD192. Exit from this 
logical loop occurs if either an error is present (NCOND was set to 1), or an 
end of file was encountered (NCOND was set to 2). In either case, an appro- 
priate message is printed through a call to ERR192 and the program terminates. 

2.3. 1.4 Coding Information 

Calling Sequence: N/A 

COMMON Storage Used: N/A 
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Input and Output: 

Unit 5 - NAMELIST ASK card input unit containing logical variables 

NHOUST and/or NSCANT (default value for these parameters is 
false, but explicit input of both would ensure clarity of request). 

Error Returns: If an error condition was present on the tape, an appropriate 
message is printed through a call to the routine ERR192; the program then 
terminates. 

Called Subroutines: RD192, ERR192 

2. 3. 1. 5 Programs or Subroutines To Use R92 

N/A 

2. 3. 1.6 References 
N/A 

2.3.2 ERR192 

2.3.2. 1 Identification 

English Language Title: Error message printing routine for 192 access pro- 
grams 

Program Language : FORTRAN 

Analyst’s Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer’s Name and Organization, M. Mack, Computer Sciences Corpo- 
ration 

2. 3. 2. 2 Functional Procedure 

The program lists all condition messages prompted by the accessing of 


2. 3. 2. 3 Formal Procedure 


Upon entry to the program, the value of the status indicator, N , is checked. 
If it is 1, an error was present and an appropriate message is printed; if it 
is 2, an end of file was encountered and an appropriate message is printed. 

In either case, the routine returns control to the calling program. It may be 
utilized by the user in his RD192 utilization programs to list such messages. 

2. 3. 2. 4 Coding Information 

Calling Sequence: CALL ERR192(N) 

where N = 1, a read error was present 

= 2, an end of file was encountered 

COMMON Storage : N/A 

Input and Output: 

Unit 6 - Printer unit for error messages 
Error Returns : N/A 
Called Subroutines : N/A 

2.3. 2.5 Programs or Subroutines To Use ERR192 
R92 

2.3.2. 6 References 
N/A 

2.3.3 PRINT H 
2.3. 3.1 Identification 

English Language Title: Housekeeping record printing routine 
Programming Language: FORTRAN 
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Analyst’s Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 


2 . 3 . 3 . 2 Functional Procedure 

At user option, the contents of the Housekeeping record can be listed using 
PRINT II. 

2 . 3 . 3 . 3 Formal Procedure 1 

The Housekeeping data is passed through the argument list under four different 
(but location equivalent) names. Since equivalencing cannot be performed on 
argument list arrays, and since Housekeeping data consists of Real*4, Integer *4, 
Integer *2, and Logical*! (EBCDIC) values, the same values were passed under 
those four data types. Since the values on the tape often corresponded to set 
meanings, these meanings are printed. All Housekeeping data is listed on four 
numbered pages together with any necessary explanatory annotations. 

2. 3. 3. 4 Coding Information 

Calling Sequence: CALL PRINTH (HOUSEK, IHOUS, IHOUS2, LHOUS) 

where HOUSEK is the Real* 4 array of S192 Housekeeping data 

IHOUS is the Integer* 4 equivalent array ( 

IHOUS2 is the Integer* 2 equivalent array 
LHOUS is the Logical* 1 equivalent array 

COMMON Storage Used: N/A 

Input and Output: 

Unit 9 - Printer output unit which will contain the listing of Housekeeping 
data 

Error Returns : N/A 
Called Subroutines : N/A 
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2. 3. 3. 5 Programs or Subroutines To Use PRINT H 
RD192 

2. 3. 3. 6 References 
N/A 

2.3.4 PRNTSC 

2 . 3 . 4. 1 Identification 

English Language Title: Scan data printing routine 
Programming Language : FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2.3.4. 2 Functional Procedure 

■ ! 

At user option, the contents of the scan record can be listed using PRNTSC. 

i 

2. 3.4.3 Formal Procedure 

The scan data is passed through the argument list under four different (but 
location equivalent) names. Since equivalencing cannot be performed on argu- 
ment list arrays , and since scan data can consist of Real*4, Integer*4, Integer *2, 
and Logical*! values, the same values are passed under the four data types. As 
with the Housekeeping data, some values in the scan array correspond to set 
messages. These messages, rather than the indicating value, are listed. 

Also, a scan array consists of ancillary block data as well as scan radiance 
data. Ancillary block data remains the same for all channels. Since it would 
be redundant as well as wasteful of paper to repeatedly print unchanging ancil- 
lary block data, the program only lists these values while listing data for the 
first channel. The ancillary values as well as any explanatory annotations are 
printed on one page. 


Since not all scan values can be listed on any one page (there are a minimum 
of 1032), the values are printed on several pages (225 values to a page with each 
page headed by the time value). All printed scan data pages are consecutively 
numbered. 

2 . 3 . 4. 4 Coding Information 

Calling Sequence: CALL PRNTSC (SCAN, ISCAN, ISCAN2, LSCAN) 

where SCAN is the Real*4 array of S192 scan data (including all ancillary 
data 

ISCAN is the Integer*4 equivalent array 
ISCAN2 is the Integer *2 equivalent array 
LSCAN is the Logical*l equivalent array 

COMMON Storage Used: N/A 

Input and Output: 

Unit 9 - Printer output unit which will contain the listing of all scan data 
Error Returns : N/A 
Called Subroutines : N/A 

2.3.4. 5 Programs or Subroutines To Use PRNTSC 
RD192 

2. 3.4. 6 References 
N/A 

2.3.5 I-IRMNSC 
2 . 3 . 5 . 1 Identification 

English Language Title: Time conversion from tenths of milliseconds to hour, 
minute, and second routine 


Programming Language : FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2. 3. 5. 2 Functional Procedure 

The input frame time in tenths of milliseconds (found within the scan array) is 
converted to hour, minute, and second. 

I 

2. 3. 5. 3 Formal Procedure 

Using the time conversion equivalents as well as the normal computer trunca- 
tion, frame time is conveniently converted to hour, minute, and second. 

2. 3. 5. 4 Coding Information 

Calling Sequence: CALL HRMNSC (ISCAN, ISCAN2) 

where ISCAN is the Integer*4 array of scan data (including current House- 
keeping data, such as time) 

ISCAN2 is the Integer *2 equivalent array 
COMMON Storage Used: N/A 
Input and Output: N/A 
Error Returns: N/A 
Called Subroutines : N/A 

2. 3.5. 5 Programs or Subroutines To Use I-IRMNSC 
RD192 

2. 3. 5. 6 References 


None 


2.3.6 RD192 


2 . 3 . 6 . 1 Identification 

English Language Title: S192 Data Access Program 
Programming Language: Assembly Language Coding 

Analyst’s Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer’s Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

2. 3. 6. 2 Functional Procedure 

RD192 reads the S192 data types supplied by JSC, unpacks and modifies the 
data, and passes the array of values back to the calling program. 

2. 3. 6. 3 Formal Procedure | 

Prior' to understanding the actual description of RD192 is the need to discuss 
array set-up reasoning. Since the number of data points on S192 tapes per 
channel changes frequently and since, therefore, setting up the output array 
within the RD192 program would have to have been changed each time, RD192 
stores values directly into the area indicated on the call program. It is the 
user’s duty to create an array large enough to accommodate the data on his 
tape. 

A second advantage of this form of storage lies in the user's ability to utilize 
the erroneously shipped conical scan tapes. The arrays were enlarged and 
extraneous, differing types , or overlapping data, skipped. Compare the SI 92 
line strengthened tape format with the SI 92 conical scan tape format (Appendix J) 
in order' to understand how this could be done. Upon entry into RD192, argu- 
ment entries are stored. If it is the first call, Housekeeping data must be read, 
unpacked, modified when necessary (such as with slopes and intercepts), and 
stored. 
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Since JSC word size often varied from word to word, much overall looping was 
precluded. The access is more "labored" as a result. If the user indicates by 
the value of NVAL(2) in call sequence that he wishes Housekeeping data listed, 
PRINT!! is called. Regular data is then accessed, (subsequent calls will skip to 
this point and bypass Housekeeping logic). Since more than one channel of ra- 
diance values is stored on one physical record on the input tape, and since users 
will often use only one channel, only one channel's data is passed per call. Pro- 
gram logic tests whether data is still present in the access array or whether a 
new access must be made. 

Ancillary block data is present only in the physical record containing the first 

of the recorded channels. Program logic tests if it is the first (by means of 

the stored displacement value to the slope-intercept array) and unpacks and 

processes this data first if present. Subroutine I-IRMNSC is called to update 

the hour, minute, and second values in the "Housekeeping" part of the regular 

-4 

array (using the ancillary block frame time in 10 seconds as input). All 
east longitudes, recorded on the tape, are converted to west longitudes (with 
which GSFC scientists are most familiar). Then scan data is unpacked and 
modified (using stored slopes and intercepts), and the calculated scan's pixel 
radiance is stored into the array of the calling program. 

Finally, if the user indicates by the value of the input parameter NVAL(3) that 
he wishes the scan values printed, PRNTSC is called. All bugs which appear 
in logic which is reexecuted upon subsequent entries, are reinitialized. The 
bugs are used for logic tracing in case an error should occur in execution. 
Control then returns to the calling program. 

2 . 3 . 6 . 4 C ocling Inform ati on 

Calling Sequence: CALL RD192 (SCAN, NVAL) 

where SCAN is the output scan array consisting of ancillary block values and 
all radiance data for one channel 


NVAL is an input and output integer array in which 

NVAL(l) is an output condition indicator 
= 0, data returned is regular data 

= 1, data returned is erroneous data (some error was encoun- 
tered) 

~ 2, an end of file was encountered 
NVAL(2) is an input user request indicator 
= 0, no Housekeeping data should be printed 
= 1, all Housekeeping data should be printed 
NVAL (3) is an input user request indicator 
= 0, no scan data should be printed 
= 1, all scan data should be printed 

NOTE: Program logic is such that the user could list some 
— — scans and not others so long as the proper value of 

NVAL(3) was passed each time (e. g. , every nth call 
NVAL(3) is set to 1 or 0; or the first access to NVAL(3) 
= 1, while subsequent accesses use NVAL(3) = 0). 

COMMON Storage Used: N/A 

Input and Output: 

Unit TP192 - JSC-supplied S192 data tape 

Error Returns : If the file number dynamically calculated in the program does 
not agree with that supplied by JSC on the tape itself, NVAL(l) is set to 2 and 
control is immediately returned to the call program without reinitializing any 
values. Users should test for an NVAL(l) value of 2 and, at their discretion, 
request a dump to analyze data in core at the time and/or secure an IBM dump 
of their S192 tape. 

Called Subroutines: PRINTH, HRMNSC, PRNTSC 
2. 3. 6. 5 Programs or Subroutines To Use RD192 
R92, QUICK, QUICK3 
2.3. 6. 6 References 
N/A 
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2.3.7 Hardware Requirements 


One OS/360 tape drive for input tape 
One OS/360 card reader for deck 
One OS/360 printer for listings 

2.3.8 Core Requirements 

The core requirement for the entire program is 200K bytes 

2.3.9 Time Requirements 

The time requirement is highly dependent upon the size of the tape sent by JSC, 
as well as the number of pixels or radiance values per channel. Both can vary 
significantly. 

2.3.10 Card Input 

For NAMELIST ASK values, see Section 1.3. 1.4. 

2.3.11 Data Card Format 
N/A 

2.3.12 Output 

One sample given in Appendix C. 








2.4 CLOUD 


2.4.1 Main 

2 . 4. 1 . 1 Identification 

English Language Title: GSFC version S191 tape access and plot driver program 
Programming Language: FORTRAN 

Analyst’s Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

2. 4. 1.2 Functional Procedure 

This program accesses the GSFC versions of the S191 data tapes, selects that 
data which either lies within input time restrictions, or all other data on the 
tape, and calls the plot programs. 

2.4. 1.3 Formal Procedure 

Desired time input is read through a NAMELIST. The GSFC versions of the 
S191 data tapes are read, and data which lies within the input time restrictions 
or (if none is specified) all data on tape is processed. The processing is per- 
formed by the called subroutine CLOUD. When either time limits are exceeded 
or the tape file is ended, the plot tape is completed, the number of frames 
plotted is listed, and the program terminates. 

2.4. 1.4 Coding Information 

Calling Sequence: N/A »• > ’ 

COMMON Storage Used: 

DAT91: DATUS - Real array of accessed S191 values. Note that integer 
portions are equivalenced to integer names outside of 
COMMON 
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CLOUDS - Logical variable indicating whether the plot is to be 
designated as cloud data or, more generally, as S191 
data 

NUM - Plotting devices to be used: 

1000 printer 

0100 SC4020 35 or 16mm camera 

0200 SC4020 8 inch camera film 

0300 SC4020 8 inch camera and hardcopy 

0001 CalComp (30 inch drum) 

0002 CalComp (12 inch drum) 

• a. 

or a combination of these (e.g. , 1001 would be 30 inch 
CalComp plus printer) 

NUMM - Principal plotter device (everything is scaled to this 
device). It is set to 4, CalComp, in program 

NNN - Number of frames plotted 

REF - Real array of reflectance values 

TBB - Real array of temperature values 

WRS191 - Logical variable indicating whether a listing of data 
plotted is desired 

Input and Output: 

Unit 12 - 9-track, density 3, GSFC version of S191 tape (tape generated 
by NWT191 programs) 

Unit 5 - Card input unit — NAMELIST INPUT with possible content: 
PLOTER - Real *8 name of plotting device desired 

IPRINT - Integer*4 indicator of printer list desired 

= 0, printer output is desired 
= 1, no printer output is desired 
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MONTH - tnteger*4 month of data desired (any valid nonzero value 
• will indicate that a time request is present but month 
must match month of data on tape if time limits are 
used) 

ID AY - Integer *4 day of data requested 

IYEAR - Integer *4 year of data requested 

IHOUR - Integer *4 beginning hour of data requested 

MINUTE - Integer*4 beginning minute of data requested 

ISEC - Integer*4 beginning second of data requested 

IENDHR - Integer *4 ending hour of data requested 

IENDMI - Integer *4 • ending minute of data requested 

IENDSC - Integer*4 ending second of data requested 

r Unit 6 - Error and status message printer unit 

Error Returns: Since such a short period appears upon a tape, if value of 
month does not agree with month on tape (provided time limits were specified), 
there is an error. The program prints an explanatory message and terminates. 
Day and year are similarly checked. If there is a discrepancy, the program 
also prints an appropriate message and terminates. 

Called Subroutines: FREAD (OS/360 FTIO routine), CLOUD (TASK ROUTINE), 
SETBLK, ENDPLT, NOSTAE, CPRIME, PLOTST (WOLFFPLOT package 
routines) 

2. 4. 1. 5 Programs or Subroutines To Use Main 
N/A 

2.4. 1.6 References 
N/A 
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2.4.2 CLOUD 


2. 4. 2. 1 Identification 

English Language Title: Reflectance-temperature calculation and plot access 
program 

Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

2.4. 2.2 Functional Procedure 

Cloud calculates reflectances and temperatures and calls the plotting program 
to display calculated values. 

2. 4. 2. 3 Formal Procedure 

The frame counter, NNN, is updated. Then, the program checks the value of 
the zenith angle; if it is positive (and nonzero), reflectances may be calculated. 
The formula used is 

REF = (IT * RAD)/(cos(Z) * TEKVAL) 

where RAD is the radiance value 
Z is the zenith angle 

TEKVAL is the irradiance value corresponding to the wavelength for 
which the radiance value was secured 

Extreme values are eliminated so the reflectances are forced to lie between 
0 and 0. S. Temperature values are calculated for the thermal region using the 

* j 

inverse Planck function: ' 

TEM = 14388./[WAVE * LOG [l. + (37413 . /(n * WAVES * RAD))] } 


2-37 


where WAVE is the wavelength for which the radiance value was secured 
RAD is the radiance value 

Extreme values are eliminated so that temperatures are forced to lie between 
190 and 310 degrees absolute. The plotting program, PLOTT, is then called. 
Finally, control returns to the calling program. 

2 . 4. 2 . 4 Coding Information 

Calling Sequence: CALL CLOUD (no arguments) 

COMMON Storage Used: DAT91; see Section 2. 4. 1.4. 

Input and Output: N/A 
Error Returns: N/A 
Called Subroutines: PLOTT 

2.4. 2. 5 Programs or Subroutines To Use CLOUD 

Main (of S191 plot program), Temphumd (Main program of temperature humidity 
profile program) 

2. 4. 2. 6 References 
N/A 

2.4,3 PLOTT 

2. 4. 3. 1 Identification 

English Language Title: Reflectance-temperature plot program 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milas!* Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 
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2. 4. 3. 2 Functional Procedure 


PLOTT utilizes Wolf Plotting routines to display reflectance and temperature 
upon requested output imits. 

2. 4. 3. 3 Formal Procedure 

The grid size and limits for reflectances are set using SETGRD and OGRID. 

Then the reflectances are plotted using PLOTT. Explanatory labels are in- 
serted. Next, the grid size and limits for the temperature graph are set and 
those values are plotted. Explanatory labels are affixed to the plot. 

Parameters to the Wolf program are set to allow the temperature graph to 
appear above the reflectance graph. Some pertinent Housekeeping values are 
then printed. These include zenith angle, time (month, day, year, hour, min- 
ute, and second), latitude, and longitude. An appropriate overall label is then 
affixed depending upon the value of the logical variable clouds. If true, "Cloud 
data XXX" is written; if false, "S191 data XXX" is written. XXX is the value 
of the frame counter. If desired by the user, subroutine CLDWRT is then called 
to list the plotted values. Finally, the frame is advanced and control returns 
to the calling program. 

2.4. 3.4 Coding Information 

Calling Sequence: CALL PLOTT (no arguments) 

COMMON Storage Used: DAT91; Refer to Section 2.4. 1.4 
Input and Output: 

WOLFPLOT tape on unit PLOTTAPE 
Error Returns: N/A 

Called Subroutines: SETGRD, OGRID, PLOT, HORLIN, VERLIN, EDIT, 
FRMADV (WOLFPLOT routines), INCORE (OS/360 utility routine), CLDWRT 


2. 4. 3. 5 Programs or Subroutines To Use PLOTT 
CLOUD 

2. 4. 3. 6 References 
N/A 

.2.4.4 CLDWRT 

2. 4. 4. 1 Identification 

English Language Title: Reflectance-temperature value listing program 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

2. 4. 4. 2 Functional Procedure 

CLDWRT lists all calculated reflectance and temperature values with their 
accompanying pertinent Housekeeping values. 

2. 4. 4. 3 Formal Procedure 

The frame number with an appropriate label (depending on the value of clouds) 
is listed. The time, zenith angle, latitude, and longitude are listed. A set of 
explanatory titles followed by the paired wavelength and calculated reflectance 
values (four pairs to a line) are listed. Next, the temperature explanatory 
titles followed by the paired wavelength and calculated temperature values (four 
pairs to a line) are listed. Control'then returns to the calling program. 

2. 4. 4. 4 Coding Information 

Calling Sequence: CALL CLDWRT (no arguments) 
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COMMON Storage Used: DAT91; Refer to Section 2. 4. 1.4 


Input and Output: 

Unit 6 - Printer unit to contain listings of reflectance and temperature 
data 

Error Returns: N/A 
Called Subroutines: N/A 

2. 4. 4. 5 Programs or Subroutines To Use CLDWRT 
PLOTT 

2. 4. 4. 6 References 
N/A 

2.4.5 Hardware Requirements 

One OS/360 tape drive for input GSFC version of S191 data tape 

One OS/360 tape drive for output CalComp tape 

One OS/360 card reader for card input NAMELIST, INPUT 

One OS/360 printer for listings 

One SC 4020 for microfilm output (if desired) 

2.4.6 Core Requirements 

The core requirement for the Cloud system of program is 22 OK. 

2.4.7 Time Requirements 

Cloud timing is dependent upon the number of frames to be plotted. It averages 
about 1-1/2 minutes CPU and 1-1/2 minutes I/O. 

2.4.8 Card Input 


NAMELIST INPUT is described in Section 2.4. 1.4, 


2.4.9 Data Card Format 


N/A 

2.4.10 Output 


A sample appears in Appendix D. 


2. 5 INTERPOLATION PROGRAMS 


2.5.1 CNTII 91 

2. 5. 1. 1 Identification 

English Language Title: Irradiance interpolation routine for S191 data 
Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 


2. 5. 1. 2 Functional Procedure 

Exact irradiance values corresponding to S191 experiment wavelengths are 
calculated by interpolation of irradiance data supplied by Dr. Thekakara (GSFC). 

2. 5. 1. 3 Formal Procedure 


The desired wavelength values are read. For those which lie between 0.4 and 
0. 74 micron, Gaussian interpolation is performed. The formula is 


N2 

£ 

• ATI X 


-[(Nu-Nu ) /SIGMA] *LOG(2) 


IRR = 


i=Nl 


N2 


£ • 

i=Nl 


■[ (Nu-Nu 0 )/SIGMA] 2 *LOG(2) 


where 


IRR is the irradiance value 
IR. is the Thekakara irradiance value 

l 

Nu is the wavelength corresponding to IR^ 

Nu is the wavelength for which an irradiance value is desired 
o ° 

SIGMA is SIGMAF times the Nu 0 value (where SIGMAF is the filter 
halfwidth at half the maximum) 
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N1 and N2, the limits of the summation, are the indices corresponding, 
respectively, to the associated Thckakara wavelength, which 
is less than the sought wavelength minus sigma, and to the 
associated Thekakara wavelength, which is greater than the 
sought wavelength plus sigma 

For data lying between 0.75 and 2. 5 microns, straight linear interpolation is 
performed (since the filter "shape" does not affect the irradiance value in this 
region according to Dr. Curran of GSFC). The equation used is 


IRR = ffi +[(IR. 2 - IR. 1 )/(WV. 2 - WV )] (WAVE - WV^) 


where 


IRR is the irradiance value 
IR. are Thekakara irradiance values 

l 

WV. are wavelengths associated with those Thekakara values 
WAVE is the wavelength for which thu irradiance value is desired 


jl and j2 are the indices of the wavelengths (and corresponding irra- 
diance values) which correspond to those wavelengths that 
"surround" the sought wavelength 


After all values are calculated, four copies of wavelength and interpolated ir- 
radiance values are punched on IBM cards for use in reflectance calculating 
programs. Finally, these calculated values are listed. 

2. 5. 1. 4 Coding Information 

Calling Sequence: N/A 

COMMON Storage Used: DATATH: WVTI1 — the real array of wavelengths 
associated with Thekakara irradiance values; AIRTII — the real array of 
Thekakara irradiance values 

Input and Output: 

Unit 5 - Contains the input desired wavelength values 
Unit 7 - Card punch used for card deck output 


Unit 6 - General status message printing unit 

Unit 9 - Printer unit on which the wavelengths and calculated irradiance 
values are listed 

Error Returns: N/A 

Called Subroutines: N/A 

NOTE: Program requires a Blockdata routine which is contained on LOADLIB 
ZBMJMCRB on the OS/360-75. A listing of it appears in Appendix E. 

2. 5. 1.5 Programs or Subroutines To Use CNTH91 

N/A 

x 2. 5. 1. 6 References 
N/A 

"2. 5. 2. CNTI-I92 
2. 5. 2. 1 Identification 

English Language Title: Irradiance interpolation routine for S192 data 
Programming Language: FORTRAN 

Analyst’s Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization; M. Mack, Computer Sciences Corpo- 
ration 

2. 5. 2. 2 Functional Procedure 

Exact irradiance values corresponding to S192 experiment wavelengths are 
calculated by interpolation of irradiance data supplied by Dr. Thekakara 
(GSFC). 


2. 5.2.3 Formal Procedure 


The 20 wavelength values for which data is required are read. In this case, 
each wavelength is the average of the wavelengths represented in the channel. 
Since S192 data was filter sensitive, Gaussian interpolation is used for all 
values. The formula is 


IRR = 



i-Nl 


IR e -^( Nu - Nu o)/ SIGMA i^ 2 * LOG ( 2 ) 
i 



i=Nl 


-[ (Nu-Nu 0 )/SIGMA i ] 2 *LOG(2) 

6 


where 


IRR is the sought irradiance value 
IR. is the Thekakara irradiance value 

l 

Nu is the wavelength corresponding to IRj 

Nu is the wavelength for which an irradiance value is desired 
o c 

SIGMA, is SIGMAF^ times the Nu Q value (where SIGMAF is the filter 
halfwidth at half the maximum; for S192, this differs for 
each channel. Its value is approximately equal to the dif- 
ferences in limits for each channel used) 


N1 and N2, the limits of the summation, are the indices corresponding, 
respectively, to the associated Thekakara wavelength, which 
is less than the sought wavelength minus SIGMA^, and to the 
associated Thekakara wavelength, which is greater than the 
sought wavelength plus SlGMAj 


After all values are calculated, four copies of wavelength and interpolated ir- 
radiance values are punched on IBM cards for use in reflectance calculating 
programs. Finally, these calculated values are listed. 
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2. 5. 2. 4 Coding Information 
Calling Sequence: N/A 

COMMON Storage Used: 

V' 

DATATH: WRTH - Real array of wavelengths associated with Thekakara 
irradiance values 

AIRTH - Real array of Thekakara irradiance values ■") 

Input and Output: 

Unit 5 - Contains the input desired wavelength values 
Unit 6 - General status message printing unit “ 

Unit 7 - Punch used for card deck output 

Unit 9 - Printer unit on which the wavelengths and calculated irradiance 
values are listed 





SECTION 3 - SUBTASK 2 PROGRAMS 


3. 1 TEMPERATURE HUMIDITY PROFILE PROGRAM 

Since most of these programs did not originate with this task, decks and listings 
are provided but no documentation is included. Interested persons are referred 
to the Goddard Program Library Information for the "Temperature/Humidity 
Program ’Number 4' Version." 

Those programs peculiar to this task and originating with it are described in the 
following subsections. 

3.1.1 TEMPHUMD 

3.1. 1.1 Identification 

English Language Title: Temperature-humidity cloud presence decision pro- 
gram 

Programming Language: FORTRAN 

Analyst’s Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

3. 1. 1. 2 Functional Procedure 

TEMPHUMD tests the S191 data to determine the presence or non-presence 
of clouds. The results determine whether or not subroutines CLOUD or 
NCLOUD are called. 

3. 1.1. 3 Formal Procedure 

The program was edited for the last time prior to the reception of the most 
recent S191 tapes. As such, dimensions, locations of associated wavelengths , 
and radiance values may have changed. Initially, ERRSET is called to pre- 
clude premature termination because of system errors. NAMELIST INPUT is 
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read to determine WOLFPLOT package' initial values and, if desired, time 
limits within which the S191 data must lie to be utilized. Then, in loop fashion, 
input tape names are read, mounted, accessed, and processed. This processing 
begins with time testing (if time limit criteria were provided). Next, the re- 
flectance at 0.74 micron is calculated using 


REFLEC = (RADVAL * 77)/(cos(Z) * THEKVL) 


where REFLEC 
RADVAL 
Z 

THEKVL 


is the calculated 0.74 micron reflectance 

is the radiance value for 0.74 micron for the current spectrum 
is the zenith angle associated with the current spectrum 
is the irradiance value for 0. 74 micron 


If this reflectance is less than some- limit (at the time of initial analysis, 0.20), 
there must not be a cloud present, so logical variable cloud 1, initialized to true, 
is made false. 


Next, the temperature at 11.1 microns is calculated using the Inverse Planck 
function: 


TEMPVL= 14388. /Cll.l * LOG [l. + (37413. /(7T * (11. 1) 5 *RAD))] } 

where TEMPVL is the temperature at 11.1 microns 

RAD is the radiance value at 11.1 microns for the current spectrum 

If this temperature is greater than or equal to some limit (at the time of initial 
analysis, 273 degrees absolute), then there must not be a cloud present, so the 
logical variable cloud 2, initialized to true, is made false. If both tests were 
true (cloud 1 and cloud 2 being both true), it is assumed a cloud is present, the 
cloud counter is incremented, and subroutine CLOUD is called. If both tests 
were false (cloud 1 and cloud 2 being both false), it is assumed no cloud is pre- 
sent, the "no-cloud" counter is incremented, and subroutine NCLOUD is called. 
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If tests gave opposite results, it is arbitrarily assumed a cloud was present, 
the dubious case counter is incremented, the cloud case counter is incremented, 
and subroutine CLOUD is called, hi any case, the number of processed spec- 
tra is incremented and a message giving the current counter value, spectrum 
information, and calculated values is printed (for debugging purposes to verify 
values given to two differentiating limits). 

The next spectrum is read and processing continues. If an end of file or end of 
requested time period (if that option is used) is encountered, an appropriate 
message is printed in which the values of all counters are listed, the tape is 
unloaded, and the program terminates. 

3. 1. 1. 4 Coding Information 

Calling Sequence: N/A 

COMMON Storage Used: None in this form. Note that when it became apparent 
that production running of the THP would never become a reality, subroutine 
CLOUD was still modified and further developed for general plotting puiposes. 
In the process, call arguments to cloud were dropped and a COMMON used for 
parameter passage. The small amount of further development of THP (specif- 
ically in the NCLOUD section) was independent of the development of cloud, as 
a dummy cloud subroutine (with matching arguments) was used. If the THP is 
ever revived, call arguments to both CLOUD and NCLOUD will have to be 
dropped and a COMMON DAT91 (described elsewhere) inserted into both 
TEMPHUMD and NCLOUD. 

Input and Output: 

Unit 5 - Needed for input tape names (regular unit 5 access of alpha- 
numeric, left- adjusted, A8 tape volume-serial number). Also 


needed fox' input NAMELIST INPUT which follows all tape names, 
and contains one or more of the following parameters : 

PLOTER - The alphanumeric name of the ploter device desired 
(CalComp, SC4020FH, SC4020H, SC4020F, Printer) 

IPRINT - Option indicating if printer output is desired 

= 0, no 
= 1, yes 

MONTH - Month of data; if zero (initialization value), time 
limit option is not desired 

IDAY - Day of data 

IYEAR - Year of data 

IHOUR - Beginning hour of data 

MINUTE - Beginning minute of data 

ISEC - Beginning second of data 

IENDHR - Ending hour of data 

EENDMI - Ending minute of data 

IENDSC - Ending second of data 

These are specified only if time limit option is desired. Note 
that after NAMELIST was read, unit 5 was rewound to access 
tape names. Execution terminates when value "&INPUT" is 
sensed. 

Unit 6 - Condition or status message printer unit 
Unit 12 - 9-track, GSFC version of S191 data tape 
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Error Retur-ns: N/A 


Called Subroutines: ERRSET (system routine to prevent too premature exit 
because of system errors), NOSTAE, CPRIME, PLOTST, SETBLK, ENDPLT 
(the last five of which are WOLFPLOT Package routines), MOUNT, FREAD, 
UNLOAD (the last three of which are OS/360 FTIO routines), CLOUD, NCLOUD 

3. 1*1.5 Programs or Subroutines To Use TEMPHUMD 

N/A 

3. 1.1. 6 References 
N/A 

3.1.2 GETSHL 

This routine was never developed. A value for the shelter temperature was 
inserted through the Block Data Routine. The objective was an interpolation 
between input latitude -longitude time and shelter temperatures for various 
areas of the globe (i.e. , for specific time periods for each latitude -longitude 
cell, a shelter temperature would exist — the routine would utilize time, lati- 
tude, and longitude of the spectrum to determine which shelter temperature 
applied). 

3.1.3 NCLOUD 

3. 1. 3. 1 Identification 

English Language Title: Temperature humidity inversion driver, routine 
Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 



3. 1.3.2 Functional Procedure 

NCLOUD calculates the mixing ratio (humidity) and temperatures based on 
radiative transfer theory using the input spectral radiances. 

3. 1 . 3 . 3 Formal Procedure 

On the first entry to the program, the values of pressure at the various levels 
from the top of the atmosphere to the ground are set. The particular radiance 
values to be used for the inversion are placed in the smaller array, XI. This 
includes the window value at 11.1 microns. Next, the shelter temperature is 
secured (this routine was never developed due to the suspicions of the project 
scientist about the dubious quality of the S191 data for inversion purposes). 

The average value of the change in the log of the pressure from level to level 
is calculated for later use in TRANSW and TRANSC (transmission subroutines 
from program S00091 cited above). The viewing angle VWAN is calculated. 

The secant of the viewing angle is used in ESTH20 (the water vapor computation 
routine) and in WRNCLD (the listing and display routine. It is also used in 
TRANSW and TRANSC to correct the values of the transmission coefficients. 

The transmission subroutine TRANSC entry, TRNSIN, is called to calculate 
pressure exponential values used later on TRANSC. Next, the Planck radiance 
function is utilized to calculate expected radiance for the 11. 1 micron wave- 
length and current shelter temperature. The difference between that and the 
actual "window" value is used to determine if processing should take place 
and, if so, if a hotground correction is needed. The determining limits were 
set by Dr. Curran (GSFC) but may need to be changed if the program is utilized 
in the future. Then the equivalent brightness temperature, TB, for the window 
is calculated using the inverse Planck function. This will be used in later cal- 
culations for the corrections to radiance values. 

The iteration loop is entered in which the temperature and mixing ratio final 
calculations are performed. All but the first pass reinitialize the transmission 
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coefficients array for 1120. The radiative transfer routine for calculating 
transmission coefficients as a function of pressure level for C02, TRANSC, is 
then called. The transmission coefficients for 1120 for all levels for tempera- 
ture associated values are then modified by the transmission coefficients for 
C02. 

A hotground correction for radiance values, XI, is accomplished by subtracting 
from the given radiance values the difference between the radiance value cal- 
culated at the surface using the TB value mentioned above, and the radiance 
value associated with the shelter temperature at the surface multiplied by the 
transmission coefficient for H20 at the surface, or 

XL = XI. - (FSB(XLAM., TB) - FSB(XLAM., TS)) * TAU. n 

where FSB is the Planck function yielding radiance values when wave- 
length and temperature are input 

XLAM. is the wavelength associated with XI. 
i i 

XL is the particular radiance value to be corrected 

TB is the equivalent brightness temperature for the window 

TS is the current shelter temperature 

TAU. is the transmission coefficient for H20 associated with the 
wavelength XLAM. at the surface 

When it was apparent that at least some (later found to be all) humidity asso- 
ciated radiance values would be zero, logic was inserted to bypass the calculation 
of water vapor. (Zero radiance values result in system errors. ) 

UTOTAL, calculated in ESTI120, is the total amount of water vapor present in 
the atmosphere. Often, convergence of the calculations occurs prior to the five 
iterations allowed. This is revealed through the relative change in UTOTAL 
between a prior iteration and the current one. If less than a convergence test 
value (set in data), iteration ceases. If the iteration loop is complete and no 


UTOTAL estimate is made using mixing ratio values, either "fii’st guess" values 
initially set in block data (if no prior spectrum had non-zero values), or those 
previously calculated with an earlier spectrum. Finally, calculated results are 
listed and displayed utilizing subroutine WRNCLD. 

3 . 1 . 3 . 4 C oding Inf ormati on 

Calling Sequence: Call NCLOUD (DAT191, IDT191) 

where DAT191 is the real array of Housekeeping and spectral radiances 
IDT191 is the integer equivalent array (to DAT191) 

Note that under TEMPHUMD, this might be changed if a COMMON for DATA, 
present in the most current version of CLOUD, is utilized. 

COMMON Storage Used: 

CHA: RMSTMP - Root mean square of temperature calculated in ESTLSQ 
RMSH20 - Root mean square of mixing ratio calculated in ESTH20 

C02: TAUC02 - Real array of transmission coefficients associated with 

C02 for all wavelengths under consideration for all 
pressure levels 

C02 - Real array of the C02 absorption coefficients to be used 
in the polynomial fit to the transmission equation as a 
function of altitude for all wavelengths (used in TRANSC) 

XK - Transmission correction factors used to modify the 
pressure values in the TRNSIN entry to TRANSC 

XKMULT - Transmission correction factors used to modify results 
of the transmission equation calculations in TRANSC 

H20: TO - Real array of first guess temperature values for each level 
of pressure 


QO - Real array of mixing ratio values calculated for each level 
of pressure 

TAU - Real array of transmission coefficients associated with 
H20 for all wavelengths under consideration for all pres- 
sure levels 

WATER - Real array of H20 absorption coefficients to be used in 

the polynomial fit to the transmission equation as a func- 
tion of altitude for all wavelength (used in TRANSW) 

XXX: TS - Shelter temperature (presently input through block data, but 

ultimately to be calculated for the individual spectrum through 
interpolation of world- wide, time -wide values) 

PS - Pressure at the surface 

PT - Pressure at the top of the atmosphere 

DH - Average change in the log of the pressures with a change in 
level 

N - Number of boundaries of levels of pressure (surface to top 
of atmosphere inclusive) 

NL - Number of levels of pressure considered 

R - Displacement for the array II in ESTLSQ before it is inverted 
by subroutine MATINT or MATINII (called MATINV in S00091). 
Note that two inversion routines, one for temperature (MATINT) 
and one for humidity (MATINII), were created from the one 
MATINV routine in S00091 since, as coded, it was dimension 
and storage dependent. On S00091 programs, these were the 
same for humidity and temperature. Since they differ, two 
routines allowing different storage were found to be necessary. 
Doing this was faster than recoding the entire inversion routine 

'/ 
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or looking elsewhere (and was practical in view of the likeli- 
hood of non-use due to poor S191 data quality). 

MTOTAL - Number of wavelengths associated with temperature calcula- 
tions only 

P - Real array of values of pressure at all levels from the top 
of the atmosphere to the surface 

T1 - Real array of calculated temperature values for each level 
of pressure 

HOTGRD - Logical indicator of the need for liotground correction of 
radiance values 

Input and Output: 

Unit 6 - Used as printer listing unit for status messages and intermediate 
processing values 

Error Returns: N/A 

Called Subroutines: GETSHL, VIEWAN, WRNCLD, TRNSIN (entry to TRANSC), 
TRANSW, TRANSC, ESTLSQ, ESTI-I20 (the last five of which are from S00091 
with minor or no changes made) 

3. 1.3. 5 Programs or Subroutines To Use NCLOUD 
TEMPHUMD 

3. 1.3. 6 References 

Goddard Space Flight Center, N73-115S8, A Review of Nonstatistical Techniques 
for the Estimation of Vertical Atmospheric Structure From Remote Infrared 
Measurements, Drs. B. J. Corrath and I. Revah 
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3.1.4 VIEWAN 


3. 1. 4. 1 Identification 

English Language Title: Routine to resolve pointing angles into view angle 
Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

3.1.4. 2 Functional Procedure 

VIEWAN resolves the four pointing angles found in the Housekeeping part of the 
array on the GSFC version tapes into a single nadir view angle. 

3. 1.4.3 Formal Procedure 

Only two of the four pointing angles will ever be nonzero (otherwise they could 
not be recorded down, left, up, or right). Their configuration would be as in 
Figures 3-1 and 3-2, 

From Napier's triangle (spherical trigonometry): 

cos /3 = tan 0 0 tan (tt/2 - x) = tan 0 0 cot x 

and 

cos a. = tan O.^ tan (it/ 2 - x) = tan O.^ cot x 

Now 

sin o i = sin (tt/2 - p) = cos 0 
sin 0 = sin (it/ 2 - j3) = cos a 
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So, too 


cos CL = tan cot x 


cos /? = tan O cot x 
2 


2 2 
sin a + cos CL = 1 


2 2 
(tan O cot x) + (tan O. cot x) =1 

u 1 ’ JL 


cot* 2 x (tan 2 CL + tan 2 O ) = 1 
X 2 


2 / 2 2 \ -l 

cot x = (tan + tan 1 


( 2 2 \ -*l/2 

tan + tan O 2 1 


tan x = (tan 2 + tan 2 C^j^ 2 
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or 

x = tan 1 ^tan 2 + tan 2 0 2 ) 1//2 J 

where x is the desired nadir view angle and Cl and CL are the two nonzero 

X Z4 

.pointing angles. 

3.1.4. 4 Coding Procedure 

Calling Sequence: CALL VIEWAN (DAT191, VWAN) ■ 

where DAT 191 is the input real array of Housekeeping and spectral data 
VWAN is the real output nadir view angle 

COMMON Storage Used: N/A 

Input and Output: N/A 

Error Returns: N/A 

Called Subroutines: N/A (Only standard FORTRAN compiler trigonometric 
functions, inverse trigonometric functions, and square root.) 

3. 1. 4. 5 Programs or Subroutines To Use VIEWAN 
NCLOUD 

3.1.4. 6 References 
N/A 

3.1.5 WRNCLD 
3 . 1 . 5 . 1 Identification 

English Language Title: List and display routines for calculated temperature 
and humidity values 

Programming Language : FORTRAN 
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Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

3. 1. 5. 2 Functional Procedure 

WRNCLD lists and displays the calculated temperature and humidity profile 
values derived from NCLOUD and its associated radiative transfer subroutines. 
It also generates output tapes of the values for subsequent analysis. 

3. 1.5. 3 Formal Procedure 

Since CPU and 10 time is shortened with fewer arguments in the list, the first 
portion of the routine reorders and places data into an output array. The 
9-track output tape is then created. Next, the printer listing is made with in- 
serted explanatory titles and units. The WOLFPLOT package is utilized to 
place plots of calculated data on the CalComp or SC4020 (as requested by user). 

The Housekeeping data is first placed in the Wolf output array through EDIT. 
Then two loops, one for temperature and one for humidity, place calculated 
values in the remainder of the array (again using the Wolf EDIT routine). 
Finally, one last loop plots the output array line by line using the Wolf routine 
HORLIN. The frame is advanced through FRMADV and control returns to the 
calling program. Note that since the temperature humidity program was never 
completed, this routine was never satisfactorily tested. The listing portion 
appeared to be adequate, but WOLFPLOTs were never made. Subsequent ana- 
lysts wishing to utilize this program should be cognizant of this. 

3. 1.5. 4 Coding Procedure 

Calling Sequence: CALL WRNCLD (XLAM, XI, Tl, RH20, UTOTAL, TS, 
DAT191, IDT191, VIEWAN, ZEROVL) 
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where XLAM is the real array of all wavelengths associated with tempera- 
ture or humidity calculations 

XI is the real array of temperature- or humidity- related ra- 
diances 


T1 is the real array of calculated temperatures for all pressure 
levels 


RH20 is the real array of calculated mixing ratios (humidity) for 
all pressure levels 

UTOTAL is the calculated, (or estimated), value of the total am omit of 
water vapor in the atmosphere 

TS is the shelter temperature 


DAT 191 is the real array of Housekeeping and spectrum values 


IDT191 is the integer equivalent array of data 
VIEWAN is the real nadir view angle 

ZEROVL is the logical indicator of whether the humidity inversions 
were not performed and UTOTAL estimated instead of cal- 
culated 


COMMON Storage Used: N/A 
Input and Output: 

Unit 9 - Output printer unit for listing calculated temperature and 
humidity 


Unit 10 - Output 9-track tape unit for calculated temperatures and 
humidities 

PLOTTAPE - Output 7-track WOLFPLOT tape 
Error Returns : N/ A 

Called Subroutines: SAMSIZ, EDIT, HORLIN, FRMADV (all of which are 
WOLFPLOT routines) 
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3. 1.5. 5 Programs or Subroutines To Use WRNCLD 
NCLOUD 

3. 1.5. 6 References 
N/A 

3.1.6 BLDATTHP 

3 . 1 . 6. 1 Identification 

English Language Title : Block data routine for temperature humidity program 
Program Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

3. 1. 6. 2 Functional Procedure 

The routine establishes the data values used throughout the radiative transfer 
routines in the temperature humidity program. 

3. 1.6. 3 Formal Procedure 

No programming description would be appropriate here. Note how some of the 
data was derived in case new values are ever inserted. Specifically, the initial 
values for TO and QO (the latter called AO and Al), used in COMMON H20, 
were derived through interpolation between values for model atmospheres for 
midlatitude summer (most appropriate for the data we first considered). Mid- 
latitude winter values are also available (Appendix O). More accurate values 
for the longitude band, etc. , might enhance convergence and accuracy but were 
deemed unnecessary by Dr. Curran (GSFC). The transmission coefficients for 
H20 and C02 were derived through interpolation between empirical absorption 
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coefficients for water vapor and for C02 found in an ESSA (NOAA) technical 
report by W. L. Smith of the National Environmental Satellite Center (Appen- 
dix O). 

Since the wavelengths associated with humidity were so distant from those 
present in the tables , the calculated values for those wavelengths are not 
accurate. However, as our brief utilization of the program never involved 
humidity calculations, the derivation of more accurate values was never con- 
sidered necessary. Future users, however, should seek more accurate values. 
The R displacement value was set on the basis of several rims, made to deter- 
mine proper convergence and behavior of output. In each, R was given a dif- 
ferent value. The current one, 4.E-11, appeared most desirable to Dr. Curran 
(GSFC). 

3. 1.6.4 Coding Procedure 
Calling Sequence: N/A 
COMMON Storage Used: 

H20 — Refer to Section 3. 1.3.4. 

SHUDT — TSVAL: Shelter temperature values for all areas for all times 
TIMES: Times associated with those shelter temperatures 

XXX — Refer to Section 3. 1. 3. 4. 

C02 — Refer to Section 3. 1.3. 4. 

ZZZ — XIO: Array of radiance values used together with current radiance 
values to calculate RMS residual/radiances. Initially set to 
zero since at the time, project scientists were not interested in 
■ this RMS. Probably should be first guess values for radiances 
for those wavelengths. 


PHI: Storage array for kernel matrix in ESTLSQ 


Note that COMMON ZZZ was left from S00091. If program had been 
initiated with Skylab, a COMMON would not have been used here. 

Input and Output: N/A 

Error Returns: N/A 

Called Subroutines : N/A 

3. 1.6. 5 Programs or Subroutines To Use BLDATTI-IP 
All radiative transfer programs referencing COMMONS. 

3. 1. 6. 6 References 

1. Goddard Space Flight Center, N73-11588, A Review of Nonstatistical 
Techniques for the Estimation of Vertical Atmospheric Structure From 
Remote Infrared Measurements , Drs. B. J. Conrath and I. Revah 

2. National Environmental Satellite Center, NESC47, A Polynomial Repre- 
sentation of Carbon Dioxide and Water Vapor Transmission , W. L. Smith, 
February 1969 

3. 1. 7 Hardware Requirements 
One OS/360 card reader for input 
Three OS/360 tape drives 

• Two 9-track: For input GSFC version S191 tape and GSFC output 
temperature humidity profile tape 

• One 7-track: WOLFPLOT tape 
One OS/360 printer unit 

One SC4020 microfilm processor 

3.1.8 Core Requirements 

The core requirement for the entire program is less than 450 bytes. 
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3.1.9 Time Requirements 

As with most Sky lab programs , the time requirement is highly dependent upon 
the size of the GSFC S191 version tapes created (which depends upon the size 
of JSC-supplied tapes). At present, no run took more than 2 minutes CPU and 
3 minutes IO. However, no production runs were made and no humidity calcu- 
lation logic was utilized. 

3.1.10 Card Input 
See Appendix F. 

3.1.11 Data Card Format 
See Appendix F. 

3.1.12 Output 


See Appendix F. 


3.2 UTILITY ROUTINE 


3.2.1 BLKDAT 

3 . 2 . 1 . 1 Identification 

English Language Description: Block data creation routine 
Programming Language: FORTRAN 

Analyst's Name and Organization: M. Mack, Computer Sciences Corporation 

Programmer's Name and Organization: M. Mack, Computer Sciences Corpo- 
ration 

3. 2.1.2 Functional Procedure 

BLKDAT will create a block data routine of data input to it, setting up all re- 
quired sub-arrays and equivalences. 

3 . 2 . 1 . 3 Formal Procedure 

The biggest problem the user had (before this routine was developed) was the 
restrictions to 15 construction cards for all data. For large arrays, this re- 
quired hand calculations of equivalency positions . This routine obviates that 
necessity. Since the output format desired by the user must be placed in 
Logical*l format "arrays" and not always in positions convenient for Real* 8 
equivalencing, the input format is placed in another Real*8 word with a Logical* 1 
array equivalenced to it. Next, the number of elements on a line (no more than 
64 allowed — columns 7 through 70) is calculated. Note that division is by one 
greater than the input format size to allow for commas. 

The number of lines required to display the entire array is then calculated. The 
number of arrays which will have the same number of elements and the number 
or total are calculated. Next, the number of elements in each array of the same 
size and the number in the list array are calculated. Only two equivalences 
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could fit on a line, so the question of whether an odd number of equivalenced 
arrays (needing a different output format for the last line) is solved through 
calculation. The data type on the dimension statement should be listed, so 
indices of the type array which apply are set. 

All output of the program is in pairs : unit 7 (card punch) and unit 6 (printer 
■listing). First, the words "block data" and the array with type and dimension 
are listed and punched. The rest of the program is divided by type. The first 
division is between real and integer. Later, in the case of real, between Real*4 
and Real* 8. For integers, the logic divides into Integer *2 and Integer *4. In 
each case, the output formats established for that type are modified by the in- 
sertion of input and calculated values (e. g. , number of values to a line). 

For debugging purposes, the generated formats are listed on a different printer 
unit (unit 9). The equivalenced arrays are output dimensioned under the appro- 
priate type of statement and the equivalence statement is also generated. Next, 
the data, with appropriate equivalenced name preceding it, is output. Finally 
the "Return" and "End" statements are generated. 

The program allows as many as 100 arrays for equivalencing. For most cases, 
this should be sufficient to accommodate data. 

3. 2. 1. 4 Coding Information 

Calling Sequence: CALL BLKDAT (NTYPE, ARR4, ARR8, INTAR2, INTAR4, 
NOELEM, ARNAME, FMT, IFMTSZ) 

where NTYPE is an indicator of data type 
= 1, Real*4 
- 2, Real*8 
= 3, Integer*2 
= 4, Integer *4 

ARR4 is the Rcal+4 array which contains data if NTYPE = 1; other- 
wise, it is a single -element, Real*4 dummy array 

ARR8 is the Real*8 array which contains the data if NTYPE = 2; 
otherwise, it is a single-element, Real*8 dummy array 
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INTAR2 is the Integer *2 array which contains the data if NTYPE = 3; 
otherwise, it is a single-element, Integcr*2 dummy array 


INTAR4 is the Integer**! array which contains the data if NTYPE = 4; 
otherwise, it is a single-element, Integer *4 dummy array 

NOE LEM is the dimension of the input array (the number of elements 
in it) 

ARNAME'*' is the Real*8 alphanumeric name of the input array 

FMT is the desired data format: IN, EN.I, DN.I, FN.I, AN (with 
standard FORTRAN meaning) 

IFMTSZ has the value N in the above examples (it is the width of the 
desired format) 

COMMON Storage Used: N/A 

Input and Output: 

Unit 6 - Printer unit listing generated block data routine 


Unit 7 - Punch and unit containing generated block data routine in card 
deck form 

Unit 9 - Printer unit containing debug information, i.e. , generated format, 
etc. These references may be removed or a dummy unit inserted 
as desired by user 

Error Returns: N/A 

Called Subroutines: INCORE (system routine) 

3. 2. 1.5 Programs or Subroutines To Use BLKDAT 

N/A 

3. 2. 1.6 References 

N/A 

Note that the only naming restriction on the output array is thus necessitated 
by the establishment of ecjuivalencing array names, i.e. , Al through A100 
and II through 1100. These names cannot be used. 


3.2.2 Hardware Requirements 






OS/360 card punch 
OS/3GO printer unit 

3.2.3 Core Requirements 

The core requirement for the entire test program is 100K bytes. (BLKDAT, 
without printer or punch allowances, is 8288 bytes. ) 

3.2.4 Time Requirements 

In the test case, time requirements were less than 1/2 minute CPU and 1 min 
ute 10. 

3.2.5 Card Input 
N/A 

3.2.6 Data Card Format 
N/A 

3.2.7 Output 
See Appendix G. 
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SECTION 4 - SUBTASK 5 PROGRAMS 


4.1 QUICK 

4.1.1 MAIN 

4. 1. 1. 1 Identification 

English Language Title: S192 quiclc-look plot driver program 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4. 1.1. 2 Functional Procedure 

This program, through subroutine calls and a minimal amount of calculation, 
accesses S192 data tapes and plots every 30th point on every 30th line for a fast 
overview of the entire scene. 

4. 1. 1. 3 Formal Procedure 

Through NAMELIST INPUT, user requests for channels to be printed, output 
units to be used, number of points to a line and types of plots desired are re- 
corded. Channels are read by the actual channel number (not its order of 
appearance on tape since many are missing). The first, second, and fourth 
channels will be used for reflectance, and the third channel, for temperature. 
Since JSC sent some conical scan tapes instead of line straightened data (as 
promised), logic was inserted to utilize the previously developed RD192 pro- 
gram but to bypass dissimilarities present in conical scan data (see Appen- 
dix J for further information). 

On the conical tapes, additional records are present. The first 18 of every 
group of scan radiance data must be ignored. Since there are two scan radiance 
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data groups placed contiguously in the physical block, the first scan must bypass 
18 pixels while the second must bypass 36 pixels. To achieve a uniform size of 
1032, the last pixel used in the first group would be 1050, while the last pixel 
used in the second group would be 1068. Since several physical blocks are read 
and since tins is true for every one, an even or odd determination is made by 
calculating count of the scan mod 2. 

The tape is then accessed and the channel number present is compared with the 
input request list. If present, control shifts to the first, second, third, or 
fourth channel processing section. If it is none of them, a new scan is accessed. 
The four processing sections are similarly structured. The line number is ac- 
cessed, count of passes into that logic section is incremented, and row mod 
number is calculated. NUMLIN is the skip factor (usually 30). 

If the moding l'esult is not 1, this scan is slapped and a new one accessed. The 
row number is assigned by calculating 

NBOW2 = LINEN2/NUMLIN + 1 

where LINEN2 is the actual line number and NUMLIN is the skip factor. 

The selected subset of the data is then placed into storage arrays, (A for the 
first channel, B for the second, etc.). For channels 1 and 2, additional proc- 
essing is performed: the zenith angle is calculated, converted to radians, and 
recorded. Checks are present to prevent accidental over-storage, i.e. , since 
storage arrays are 35 by 67, no storing is performed if either value is exceeded. 

The current version includes two column checks (the first of which precludes 
the second), necessitated by the present paper shortage reaction measures. 
Under the current printer line density increase, first the 35th and more re- 
cently the 34th pixel would not appear on the line. The working sign of the cur- 
rent arrays is 33 by 67 (logic was left unchanged other than tins in the hope that 


future paper supplies having increased, the printer output size will be restored). 
Whenever the working row number is 67, logic shifts to the display of data 
(since all arrays are clearly filled). If the NUMPLT value indicates that no plot 
other than printer is required, WOLFPLOT calls are bypassed. In any case, if 
a third channel is present, brightness temperature is calculated and plotted (as 
requested) through a call to TEMBRII. If channel 1 is present, reflectance is 
calculated and plotted through a call to REFLE1 (on which the second and fourth 
channels, if present, are also processed). 

The program then terminates. If an end of file was encountered prior to the 
completion of the 35 by 67 array, the current counter values are listed as are 
the requests from the NAMELIST. The plotting and/or listing is then per- 
formed on the smaller subset, (i.e. , brightness temperature is calculated and 
printed, if channel 3 is present, through TEMBRH, and reflectance is calcu- 
lated and printed through REFLE1). 

4. 1. 1. 4 Coding Information 

Calling Sequence: N/A 

COMMON Storage Used: 

VALUES: R1 - Real array of reflectance calculated from channel 1 

T1 - Real array of optical thickness calculated from Rl 

RR - Real array equal to XI array values times 100 (for 
printer contour) 

Y1 - Real array of ratio of reflectances calculated using T1 

XI - Real array of ratio of reflectances calculated from 1 
and 2 

D1 - Real array of the difference between XI and Y1 elements 

E - Real array (printer output) of 1, 0, and -1 calculated 
(using tests on D1 and Tl) 
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El - Real array (alphanumeric printer output) of 1, 0, 
and -1 calculated (using tests on E) 


TBB - Real array of calculated brightness temperature 
R4 - Real array of reflectances calculated from channel 4 
LC - Number of columns recorded for channel 1 
LR - Number of rows recorded for channel 1 
LC2 - Number of columns recorded for channel 2 
LR2 - Number of rows recorded for channel 2 
LR3 - Number of rows recorded for channel 3 
LC3 - Number of columns recorded for channel 3 
LR4 - Number of rows recorded for channel 4 
LC4 - Number of columns recorded for channel 4 

Plot 1 - Logical indicator of whether temperature (of channel 3) 
plot requested 

Plot 2 - Logical indicator of whether reflectance (of channel 1) 
plot requested 

Plot 3 - Logical indicator of whether cloud optical thickness 
(channels 1 and 2) plot requested 

Plot 4 - Logical indicator of whether delts ratio [plus liquid 
minus ice] (channels 1 and 2) plot requested 

Plot 5 - Logical indicator of whether delta ratio [plus liquid 
minus ice] with H20 vapor (channels 2 and 4) plot 
requested 

LR, LR2, LR3 , and LR4 £ 67, while LC, LC2, LC3, 
and LC4 s: 35. 
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Input and Output: 


Unit 5 - NAMELIST INPUT 

NCIIAN1 - Actual number name of first channel requested (to 
be used for reflectance ratio, and delta calculation) 

NCIIAN2 - Actual number name of second channel requested (to 
be used for reflectance ratio, and delta calculation) 

NUMPIT - Skip factor for pixel access 

NUMLIN - Skip factor for line access 

IPIXEL - First pixel on line which user desires plotted (in 
current version, this is overridden) 

NCHAN3 - Actual number name of third channel requested to be 
used for temperature calculations 

NCHAN4 - Actual number name of fourth channel requested to 
be used for reflectance and delta ratio calculations 

Plot 1 - Logical variable indicating whether temperature 
(channel 3) plot is desired 

Plot 2 - Logical variable indicating whether reflectance 
(channel 1) plot is requested 

Plot 3 - Logical variable indicating whether cloud optical 
thickness (channels 1 and 2) plot is requested 

Plot 4 - Logical variable indicating whether delta ratio [plus 
liquid minus ice] (channels 1 and 2) is requested 


Plot 5 - Logical variable indicating whether delta ratio [plus 
liquid minus ice] (channels 2 and 4) with 1120 vapor 
is requested 

NUMPLT - Number of plots requested 

Unit 6 - Printer unit listing program status messages and calculated 
values 

Error Returns: Since channels 15 and 16 are not active, a request for calcu- 
lations and/or plots involving these channels results in an explanatory error 
message being printed and termination of the program. Since there ai’e only 
22 channels possible, a request for a channel number greater than 22 results 
in an explanatory error message being printed and in termination of the pro- 
gram. 

Called Subroutines: RD192, TEMBRH, REFLE1, NOSTAE (system routine), 
PLOT ST (Wolf routine) f ' 

4. 1. 1. 5 Program or Subroutines To Use MAIN 
N/A 

4 . 1 . 1 . 6 References 
N/A 

4.1.2 TEMBRH 
4. 1. 2. 1 Identification 

English Language Title: S192 brightness temperature calculation and plotting 
routine 

Programming Language: FORTRAN 

Analyst’s Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 
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4. 1. 2. 2 Functional Procedure 


TEMBRI1 calculates the equivalent brightness temperature of the input channel's 
data and calls routines which display its results. 

4. 1.2. 3 Formal Procedure 

/ 

The average wavelength for the channel is selected from the wavelengths possible 
by checking the channel number requested. This is then used in the inverse 
Planck function to calculate brightness temperature. The formula used: 

TBB = 1.4388E + 04/{WAVET * LOG [l. + (3.7413E + 04/(77 * WAVET 5 * RAD))]} 

where TBB is the equivalent brightness temperature 
WAVET is the determined associated wavelength 
RAD is the radiance value for the pixel 

The listing of the results is made using subroutine WRITT and, if PLOT1 value 
indicates the desirability of it, the plot is made through subroutine CONTOU. 
Control then returns to the call program. 

4 . 1 . 2 . 4 C oding Information 

Calling Sequence: CALL TEMBRH (NCR AN 3, C, NUMPLT) 

where NCIIAN3 is the number-name of the channel for which a temperature 
plot is requested 

C is the real array containing the selected subset of radiance 
values associated with the NCI1AN3 wavelength band 

NUMPLT is the number of plots requested 

COMMON Storage Used: 

VALUES: Refer to Section 4. 1. 1. 4. 


Input and Output: 


Unit 6 - Printer unit for error message 

Error Returns: If the requested wavelength channel number name for NCIIAN3 
does not lie within the number 1 through 21, an explanatory message is printed, 
no further calculation is performed, and the program terminates. 

Called Subroutines: WRITT, CONTOU 

4. 1.2. 5 Programs or Subroutines To Use TEMBRH 
MAIN (of QUICK) 

4. 1.2. 6 References 
N/A 

4.1.3 REFLE1 

4. 1 . 3 . 1 Identificati on 

English Language Title : SI 92 Reflectance calculation and plotting routine for 
three channels 

Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4. 1.3. 2 Functional Procedure 

REFLE1 calculates the reflectance of the first input channel's data (i.e. , data 
from NCHANl) and calls routines which list and/or display its results* 

4. 1.3. 3 Formal Procedure 

The irradiance value for the channel is selected from the corresponding ir- 
radiance values possible by checking the channel number requested. The 
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array, FO, from which it is selected was secured from interpolation of ir- 
radiance values supplied by Dr. Thckakara (GSFC) using the average wave- 
length of the various channels possible for the interpolation independent variable 
input. The cosine of the input zenith angle is multiplied by this irradiance value 
and then the product is divided into n . This factor is multiplied by each input 
radiance to yield reflectance. The applicable formula is 

R1 = A * v / (cos(Z) * IRR) 

where R1 is the calculated reflectance 
A is the radiance value 
Z is the zenith angle 
IRR is the associated irradiance value 

The calculated value R1 is then multiplied by 1000 to enable fixed point repre- 
sentation of the data when plotted. Data is listed through a call to subroutine 
WRITT. If a reflectance plot is desired (indicated by the value of PLOT2), the 
contour is plotted through subroutine CONTOU. 

If only one channel was specified, an appropriate message is printed and the 
program terminates. Otherwise, optical thickness is calculated through sub- 
routine CLUTI-IK. Reflectance of channel 2 (a channel in which ice and water 
differ in their optical properties) and the ratio of that reflectance and the one 
calculated in this routine (from a channel in which ice and water are the same 
in their optical properties) will be calculated through the call to REFLE2. 
Control then returns to the calling program. 

4 . 1 . 3 . 4 C oding Inf ormati on 

Calling Sequence: CALL REFLE1 (A, ANG, NCHAN1, B, ANG2, NCI-IAN2, 

D, ANG 4, NCI-IAN4, NUMPLT) 


where 


A is the subset real array of racliance data associated with 
channel 1 

ANG is the current zenith angle associated with channel 1 data 

NCHAN1 is the number name of the first channel requested 

B is the subset real array of radiance data associated with 
channel 2 


ANG 2 
NCI-IAN2 
D 

ANG4 

NCHAN4 

NUMPLT 


is the current zenith angle associated with channel 2 data 

is the number name of channel 2 requested 

is the subset real array of radiance data associated with 
channel 4 

is the current zenith angle associated with channel 4 data 
is the number name of channel 4 requested 
is the number of plots requested 


COMMON Storage Used: 

VALUES: Refer to Section 4. 1. 1. 4 
Input and Output: 


Unit 6 - Printer unit for error messages 

Error Returns : If the requested wavelength channel number name for NCHAN1 
does not lie within the numbers 1 through 22, an explanatory message is printed 
no further calculation is performed, and the program terminates. 


Called Subroutines: WRITT, CONTOU, CLUTHR, REFLE2 
4. 1. 3. 5 Programs or Subroutines To Use REFLE1 
MAIN (of QUICK) 


4. 1.3.6 References 


4.1.4 REFLE2 


4. 1 . 4. 1 Identification 

English Language Title: SI 92 reflectance calculation and plotting routine for 
two channels 

Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4. 1.4. 2 Functional Procedure 

REFLE2 calculates the reflectance of the first input channel's data (i.e., data 
from NCIIAN2) and the ratio of the reflectances of NCIIAN2 data to NCIIAN1 
data, and calls routines which list and/or display its results. 

4. 1.4.3 Formal Procedure 

As in REFLE1, the irradiance value for the channel is selected from the corre- 
sponding irradiance values possible by checking the channel number requested 
for NCHAN2. The array, FO, from which it is selected, is the same array 
used in REFLE1, (i.e. , that which was secured from interpolation of irradiance 
values supplied by Dr. Thekakara of GSFC using the average wavelength of the 
various channels possible for the interpolation independent variable input). The 
cosine of the input zenith angle is multiplied by this irradiance value and the 
product is divided into n . This factor is multiplied by each input radiance to 
yield reflectance. The applicable formula is 


R2 = B * 7! / (cos(Z ) * IRR) 


where 112 is the calculated reflectance 
B is the radiance value 
Z is the zenith angle 
IRR is the associated irradiancc value 

If a value of NCIIAN4 is present, subroutine REFLE3 is called to yield results 
'similar to REFLE2 for channels 2 and 4. In any case, the ratios of the re- 
flectances calculated from NCHAN2 to those calculated from NCIJAN1 are cal- 
culated. Tliis yields the ratio of a channel in which the optical properties of 
ice and water differ to one in which the optical properties of ice and water are 
similar. These ratio values are multiplied by 100 for listing purposes in sub- 
routine WRITT. 

The equivalent ratio values which correspond to the optical thickness values 
calculated using NCHAN1, are obtained through subroutine CLUTI1K. The 
difference in R2:R1 ratio values is calculated. This difference reveals the 
thermodynamic phase of the cloud particles (a minus value is ice, a plus value 
is water, and zero is undetermined). The difference array is multiplied by 100, 
stored in array RR, and listed using subroutine WRITT. 

If any NCHAN1 optical thickness is less than or equal to 8, the corresponding 
value in the array RR is set to zero (for clarity in its display by CONTOU). If 
requested by the user through logical indicator PLOT4, a contour of the result- 
ant RR array is made. Finally, the water-ice numeral and alphanumeric plots 
are made using subroutine DELTA1. Control then returns to the calling pro- 
gram. 

4. 1. 4. 4 Coding Information 

Calling Sequence: CALL REFLE2 (B, ANG2, NCHAN2, FF, D, ANG4, NCHAN4, 
NUMPLT) 


where 


B 

ANG2 

NCIIAN2 

FF 


D 

ANG4 

NCHAN4 

NUMPLT 


is the array of radiance values associated with NCIIAN2 (i.e 
the channel it represents) 

is the zenith angle associated with N CHAN 2 

is the number name of the requested scan channel 

is the array of irradiance values associated with each of the 
average wavelengths of all of the channels 

is the array of radiance values associated with NCIIAN4 (i.e 
the channel it represents) 

is the zenith angle associated with NCI-1AN4 

is the number name of the requested scan channel 

is the number of plots requested 


COMMON Storage Used: 


VALUES: Refer to Section 4. 1. 1. 4 


Input and Output: 

Unit 6 - Printer imit for error messages 


Error Returns : Refer to Section 4. 1. 3. 4 

Called Subroutines: REFLE3, WRITT, CLUTIIK, CONTOU, DELTA1 

4. 1.4. 5 Programs or Subroutines To Use REFLE2 

REFLE1 


4. 1. 4. 6 References 
N/A 

4.1.5 REFLE3 
4. 1.5.1 Identification 

English Language Title: S192 reflectance calculation and plotting routine for 
one channel 


Programming Language : FORTRAN 


Analyst’s Name and Organisation: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

\ . 

4. 1. 5. 2 Functional Procedure 

REFLE3 calculates the I'eilectance of the fourth input channel’s data (i.e. , data 
from NCI-IAN4) and the ratio of reflectances of NCIIAN2 data to NCIIAN4 data, 
and calls routines which list and/or display its results. 

4. 1.5. 3 Formal Procedure 

As in REFLE1 and REFLE2, the irradianee data pertinent to the channel re- 
quested is selected from the stored irradianee data for all channels by checking 
the channel number requested for NCI-IAN4. The cosine of the input zenith angle 
is multiplied by the selected irradianee value and then that product is divided 
into 77 . This quotient is multiplied by each input radiance to yield reflectance. 
The applicable formula is 


R4 = D * jt/(cos(Z) * IRR) 


where 


R4 is the calculated reflectance 
D is the radiance value 
Z is the zenith angle 
IRR is the associated irradianee value 


The ratio of reflectances calculated for NCHAN2 and NCHAN4 is then calculated. 
As in REFLE2, this is the ratio- of a channel in which the optical characteristics 
of water and ice differ to one in which the optical characteristics of water and 
ice arc similar. The resulting matrix of values is multiplied by 100 for listing 
purposes in subroutine WRITT (which is then called). 
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The equivalent R2:R4 ratio values which correspond to the optical thickness 
values calculated using NCHAN1 are obtained through subroutine CLUTI1K. 

The difference in R2:R4 ratio values is calculated, multiplied by 100, stored in 
array RR, and listed using subroutine WRITT. Again, tills difference array 
represents the thermodynamic phase of cloud particles (where a negative result 
.means ice, a positive result means water, and zero is undetermined). 

If any NCHAN1 optical thickness is less than or equal to 8, the corresponding 
value in the array RR is set to zero (for clarity in its display by CONTOU). If 
requested by the user through logical indicator PLOTS, a contour of the result- 
ant RR array is made. Finally, the water-ice numeral and alphanumeric plots 
are made using subroutine DELTA1. Control returns to the calling program. 

4. 1 . 5 . 4 Coding Information 

Calling Sequence: CALL REFLE3 (FF, ANG4, NCHAN4, D, R2, NUMPLT) 

where FF is the array of irradiance values associated with each of the 

average wavelengths of all of the channels 

ANG4 is the zenith angle associated with NCHAN4 

NCHAN4- is the number name of the requested scan channel 

D is the real array of radiance values associated with NCHAN4 
(i.e. , the channel it represents) 

R2 is the real array of calculated reflectance associated with 
NCHAN2 (i.e. , the channel it represents) 

NUMPLT is the number of plots requested 
COMMON Storage Used: 

VALUES: Refer to Section 4.1. 1. 4 
Input and Output: 

Unit 6 - Printer unit for error messages 
Error Returns: Refer to Section 4. 1.3. 4 
Called Subroutines: WRITT, CLUTUK, CONTOU, DELTA1 . 
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4. 1.5.5 Programs or Subroutines To Use REFLE3 


REFLE2 

4. 1.5.6 References 
N/A 

4.1.6 CLUTIIK 

4. 1. 6. 1 Identification 

English Language Title: S192 equivalent optical thickness - ratio determinating 
routine 

Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4. 1.6. 2 Functional Procedure 

Depending upon the input request, equivalent optical thickness is calculated and 
its plot made, or equivalent channel 2:channel 1 reflectance ratio or channel 2: 
channel 4 reflectance ratio is calculated. 

4 . 1 . 6 . 3 Formal Procedure 

If the optical thickness values are desired as indicated by input value NUM, the 
SPLINE interpolation routine is used to determine them using the reflectance 
of channel 1 as the input independent variable. 

The second derivative at the upper and lower bands is set to zero. This is 
based on the nature of the data used for interpolation. The quadrant 1 confined 
graph of reflectance versus optical thichness is nearly linear (for small values 
of reflectance and optical thickness and asymtomatically approaches the 
REFLEC = 1 vertical line for large values of optical thickness. In either case. 
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the second derivative is zero or nearly zero and (for practical purposes) is set 
to zero. The resulting array is listed using subroutine WRITT. 

If indicated by the value of the input indicator PLOT3, the calculated array is 
contoured through subroutine CONTOU. Control would then return to the call- 
ing program. 

If the equivalent channel 2: channel 1 reflectance ratio is desired as indicated 
by the input variable NUM, the SPLINE interpolation routine is used to deter- 
mine this ratio using the optical thickness calculated from channel 1 a? the 
input independent variable. 

The upper bound of the first derivative and the lower bound of the second deriva- 
tive are set to zero. This is based on the nature of the interpolation data graph. 
The quadrant 1 confined optical thickness versus ratio graph is nearly a straight 
line for small values of optical thickness (so its second derivative there is 
zero), and is nearly a horizontal line for large values of optical thickness 
(so its first derivative there is zero). Control would then return to the calling 
program. 

If the equivalent channel 2:channel 4 reflectance ratio is desired as indicated 
by the input variable NUM, the SPLINE interpolation routine is used to deter- 
mine this ratio using the optical thickness calculated from channel 1 as the 
input independent variable. 

The upper bound of the first derivative and the lower bound of the second deriva- 

i 

tive are set to zero. This is based on the nature of the interpolation data graph 
(similar to the one present for channel 2 -channel 1 ratio/optical thickness). 

Control would then return to the calling program. 

4. 1 . 6 . 4 Coding Information 

Calling Sequence: CALL CLUTHK (NUM, NUMPLT) 

RHiPRODUCiBiLiTY OP THE 
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where NUM is an indicator of output desired: 

= 0, optical thickness equivalent of the radiances of channel 
NCIIAN1 is desired 

= 1, ratio (NCHAN2:NCIIAN1) equivalent of the optical thick- 
ness calculated from NCHAN1 is desired 
= 2, ratio (NCIIAN2 :NCHAN4) equivalent of the optical thick- 
ness calculated from NCHAN1 is desired 

NUMPLT is the number of plots desired 
COMMON Storage Used: 

VALUES: Refer to Section 4. 1.1.4 
Input and Output: N/A 
Error Returns : N/A 

Called Subroutines: SPLINE, WRITT, CONTOU 
4. 1.6. 5 Programs or Subroutines To Use CLUTHK 
REFLE1, REFLE2, REFLE3 
4. 1.6. 6 References 


N/A 

4.1.7 DELTA1 

4. 1.7.1 Identification . 

English Language Title: Thermodynamic phase of cloud determination program 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's -Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4. 1. 7.2 . F motional Procedure 

DELTA! generates numeric and alphanumeric arrays of data which indicate the 
thermodynamic phase of the cloud particles and calls a routine to list these arrays 
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4 . 1 . 7 . 3 Form al Procedure 


If the value of the input variable NUMM indicates that the difference between the 
actual ratio of the second channel's reflectance (NCIIAN2, in which ice and water 
differ in their optical characteristics) to the first channel's reflectance 
(NCITANl, in which ice and water have similar optical characteristics), and 
the calculated ratio, is to be analyzed (i.e. , NUMM is zero), processing be- 
gins using the appropriate limits LC2 and LR2. 


If the difference in ratios is negative and if the optical thickness of the cloud is 
greater than 8, ice is present, so the corresponding indicators, -1 for numeric 
array and an I for the alphanumeric array, are stored in that pixel position. 

If the difference in ratios is zero or if the optical thickness of the cloud is less 
than 8, no conclusion can be drawn, . so the corresponding indicators, 0 for the 
numeric array and blanks for the alphanumeric array, are stored in that pixel 
position. 


Finally, if the difference in ratios is positive and if the optical thickness of the 
cloud is greater than 8, water is present, so the corresponding indicators, +1 
for the numeric array and zeros for the alphanumeric array, are stored in that 
pixel position. 


Subroutine WRITT is next called to list these generated numeric and alpha- 
numeric arrays, and control returns to the calling program. 


If the Value of the input variable NUMM was 1, the difference between the actual 
ratio of the second channel's reflectance (NCHAN2, in which ice and water differ 
in their optical characteristics) to the fourth channel's reflectance (NCHAN4, 
in which ice and water have similar optical characteristics), and the calculated 
ratio, is to be analyzed. Processing identical to that for a value of NUMM=0 
begins using appropriate limits of LC4 and LR4. The listing of the generated 
numeric and alphanumeric arrays is again made through subroutine WRITT, 
and control returns to the calling program. 
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4. 1.7.4 Coding Information 

Calling Sequence: CALL DELTA1 (NUMM) 

where NUMM is an indicator of desired processing: 

= 0, calculations involve NCIIAN2:NCI-IAN1 ratios 
= 1, calculations involve NCHAN2 :NCI1AN4 ratios 

•COMMON Storage Used: 

VALUES: Refer to Section 4. 1. 1. 4 

Input and Output: N/A 

Error Returns: N/A 

Called Subroutines: WRITT 

4. 1.7. 5 Programs or Subroutines To Use DELTA1 
REFLE2, REFLE3 
4. 1.7. 6 References 
N/A 

4.1.8 CONTOU 

4. 1.8.1 identification 

English Language Title: S192 Wolf contour generation routine 
Programming Language : FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F, Milasi, Computer Sciences Corpo- 
ration 

4. 1.8. 2 Functional Procedure 

CONTOU utilizes Wolf Plotting routines to contour input S192 data. 
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4. 1.8. 3 Formal Procedure 


Minima and maxima values for indices for contours are set using input vari- 
ables. Frame limits of plot and letter sizes are set using WOLFPLOT routines 
SETGRD and SETSIZ. Then, depending upon the input variable J, any one of 
five plots is initialized and a title inserted through a call to I-IORLIN. The five 
possibilities are: temperature brightness, reflectances, cloud optical thick- 
ness, delta ratio (plus liquid minus ice), and delta ratio (plus liquid minus ice) 
with H20 vapor - N CH AN 2 : N CII AN4 . 


For all plots, the print size is halved for the plot itself through a new call to 
SETSIZ. The format desired for the value labels on the contours is set 
through CONFRM. Subroutine INDEX requires all lines to be solid (no spacing). 
The subroutine LABELI call eliminates the line underneath any label (i.e. , 
contour line goes to one side of label, stops, and starts again on the other side). 


The subroutine OGRID call sets the limits of the plot. The call to subroutine 
ZDUMP is used for debugging, listing the array so that it corresponds to the 
X and Y directions of the contour plot. 

Subroutine UNDEF defines all zero values as "undefined" values, while FILL 
requests that all such undefined values be replaced by the average of all "neigh- 
boring" (apropos of the contour configuration) defined values. 

The actual contour plot is created through a call to TRACER and the FRAME 
is advanced, through FRMADV, in preparation for subsequent plots. If this is 
the last plot (verified by checking a program access counter against the input 
number of plots desired, NUMPLT), the frame counter is set to 999 and plot 
output device use closed through SETBLIC and ENDPLT. 

4 . 1. 8 . 4 Coding Information 


Calling Sequence: CALL CONTOU (TTT, LRW, LCW, NUMPLT, J) 
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where 


TTT is the array to be contoured 

LRW is the array row index limit 

LCW is the array column index limit 

NUMPLT is the total number of plots to be made in the entire run 

J is the indicator of plot type desired: 

= 1, brightness temperature 
= 2, reflectances 
= 3, cloud optical thickness 
= 4, delta ratio (+ liquid-ice) 

= 5, delta ratio (+ liquid-ice) with 1-120 vapor 

COMMON Storage Used: 

OPTION: IMIN - Minimum index for row 

IMAX - Maximum index for row 
JMIN - Minimum index for column 
JMAX - Maximum index for column 
FINTER - Specifies contour interval if NUM=0 

These specify the subarray of the data array to be contoured. 

NUMV - Number of specific contours if FINTER=0 
CONTUR - Array of specific contours if NUMV^O 

This COMMON is required for the Wolf contour package. 

Input and Output: Plottape for Wolf contour output 

Error Returns: N/A 

Called Subroutines: SETGRD, SETSIZ, HORLIN, CONFRM, INDEX, LABELI, 
OGRID, ZDUMP, UNDEF, FILL, TRACER, FRMADV, SETBLK, ENDPLT (all 
Wolf contour package routines) 

4. 1.8.5 Programs or Subroutines To Use CONTOU 
TEMBRH, REFLE1, REFLE2, REFLE3, CLUTIIK 


4-22 


4.1.8.C References 


GSFC Computer Program Library, A00227. Wolf Plotting and Contouring 
Package - (Rev. 11-72) , G. T. Masaki (CSC), January 1972 (revised in 
November 1972) 

4.1.9 WRITT 

4. 1. 9. 1 Identification 

English Language Title: S192 calculated array listing program 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4 . 1 . 9 . 2 Functional Procedure 

WRITT lists the contents of arrays calculated in other parts of the QUICK pack- 
age as indicated through the call argument requests . 

4. 1. 9. 3 Formal Procedure 

The sole call argument, J, merely indicates the array to be plotted and its 
content. Depending upon that value, any one of nine possible label and array 
list logical sequences are followed. Within the sequences, the listing loop 
li mit s correspond to the limits of the generating array (i.e. , LR, LR2, LR3, 
or LR4 for row limit; LC, LC2, LC3, or LC4 for column limit). The output 
format also corresponds to data type (i.e. , F4. 0 for optical thicknesses, re- 
flectances, reflectance ratios, delta ratios, and brightness temperatures; 

A4 for delta ratio symbol maps). 

4 . 1 . 9 . 4 C oding Inform ation 

REPRODUCIBILITY OF THu 

Calling Sequence: CALL WRITT (J) ORIGINAL PAGJ8 IS POOR 
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where J is an indicator of listing desired 
= 1, lists reflectances 
•- 2, lists cloud optical thickness 
= 3, lists reflectances ratio R(1.61 |Uni)/R(0.74 jUm) 

= 4, lists delta ratio (+ liquid-ice) NCIIAN2/NCIIAN1 or 
R(l. 61 /im)/R(0.74 jinn) 

= 5, lists delta ratio (+ liquid-ice) NCIIAN2/NCHAN1 or 
R(1.61 |im)/R(0.74 jUin) 

= 6, lists temperature brightness 
= 7, lists reflectance ratio R(1.61 pm)/R(l. 14 fim) 

= 8, lists delta ratio (+ liquid-ice) with 1120 vapor N CHAN2/N CI1AN4 
or R(l. 61 pm)/R(l. 14 jUm) 

= 9, lists the delta ratio (+ liquid-ice) with H20 vapor symbol map 
NCHAN2/N CHAN4 or R(l. 61 fl m) /R(l . 14 (J, m) 

COMMON Storage Used: 

VALUES: Refer to Section 4. 1.1. 4 

Input and Output: 

Unit 9 - Printer unit containing the listing of the data (necessitates use 

of corresponding JCL; all parameters similar to JCL for default 
unit 6 except DD name is changed) 

Error Returns: N/A 

Called Subroutines : N/A 

4. 1. 9. 5 Programs or Subroutines To Use WRITT 
TEMBRH, REFLE1, REFLE2, REFLE3, CLUTHK, DELTA1 

4. 1. 9. 6 References 
N/A 

4.1.10 SPLINE 
4.1.10.1 Identification 

English Language Title: SPLINE interpolation routine 
Programming Language: FORTRAN 
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Analysts' Names and Organization: J. L. Walsh, J. II. Alilberg, and 
E. N. Nils on, GSFC 

Programmers' Names and Organization: I. Harris and S. Selzer, GSFC 

4.1.10.2 Functional Procedure 

This routine interpolates among input data using the SPLINE method of inter- 
polation. 

4. 1. 10. 3 Formal Procedure 


See Section 4. 1. 10. 6. 

4.1.10.4 C oding Inf ormati on 


Calling Sequence: CALL SPLINE (S, X, Y, N, IN, T, IL, VL, IU, VU, E, U) 


where S is the real input independent variable for which an interpolated 
dependent variable is needed 


X is the real array of independent variables of input data 


Y is the real array of dependent variables of input data 

N is the number of elements in X (and in Y). It is their dimension 

IN is the indicator of whether initialization or actual interpolation is 
requested 
= 1, initialization 
= 2, interpolation 

T is the real output calculated dependent variable corresponding to S 
derived through interpolation 


IL and IU are as indicators 

= 1, parabolic runout conditions at lower and upper bound 
= 2, first derivative (VL, VU) at lower or upper bound 
= 3, second derivative (VL, VU) at lower or upper bound 

VL lower and VU upper are bound values of first or second derivative 
as specified by IL and IU 

E and U are work area arrays needed by program whose dimension 
is greater than or equal to N 
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COMMON Storage Used: N/A 
Input and Output: N/A 
Error Returns: N/A 
Called Subroutines : N/A 

4. 1. 10.5 Programs or Subroutines To Use SPLINE 
CLUTIIK (QUICK version), CLUTIIK (QUICKS version) 

4. 1. 10. G References 

The Theory of Splines and Their Application. J. S. Walsh, J. H. Alilberg, and 
E. N. Nilson: Academic Press, 1967 

4.1.11 Hardware Requirements 

One OS/360 printer for output listings and error messages 
Two OS/360 tape drives for input tape and WOLFPLOT tape 
One OS/360 card reader for namelist input 

4.1.12 Core Requirements 

The core requirement for the entire program (including required Wolf package) 
is 452K bytes. 

4. 1. 13 Time Requirements 

The number of plots requested will affect this value; normally, an average run 
takes 5 minutes CPU and 4 minutes IO. 

4.1.14 Card Input 
See Appendix II. 

4.1.15 Data Card Format 
See listing in Appendix II. 

4.1.16 Output 
See Appendix H. 
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4.2 QUICK3 
4.2.1 MAIN 


4 . 2 . 1 . 1 Identif i c ati on 

English Language Title: S192 general plot driver program 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4 . 2 . 1 . 2 Functional Procedure 

Tins program, through subroutine calls and a minimal amount of calculation, 
accesses S192 data tapes and plots as 200-by-200 subset of the scene. An 
entire scene can be formed through the assembling of such overlapping subsets. 

4 . 2 . 1 . 3 Formal Procedure 

Through NAMELIST INPUT, user requests for the channel to be printed, the 
output unit to be used, starting line, starting pixel, line skip factor, pixel slap 
factor, and desired calculation and plot are recorded. The channel is read by 
the actual channel number recorded by JSC, not by its order on the tape (since 
many are missing). Since channels 15 and 16 had been missing from all S192 
tapes received, a check is made that the user did not erroneously request one 
of these. This program, unlike QUICK, was used with the expected line 
straightened data and was not modified to accommodate the several erroneously 
sent conical scan data tapes. 

In preparation for the access logic, which only accepts data at or beyond the 
first line number and at every line skip factor beyond it, the value of the first 
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line to be accepted is checked against skip factor. If the first line number is 
larger than the skip factor, the value by which the data line number must be 
decremented before evaluating it modulo the line skip factor for determining 
whether it is to be stored, is changed to ensure that the first line desired is 
also stored. 

The S192 data tape is accessed via the call to subroutine RD192. If the data 
lies beyond the first requested line and covers the- channel requested, it is 
tested to determine whether modulo the line skip factor is desired. 

The line (i.e. , that portion of it specified by starting pixel number and skip 
factor) is then stored. The zenith angle is inverted to degrees and fractions 
of a degree and stored. If either all 200-by-200 pixels have been acquired or 
an end of file is encountered, then the requested plot is made through a call to 
an appropriate subroutine (TEMBRI-I for brightness temperature; REFLE1 for 
reflectance or optical thickness) is made. In either case, the program then 
terminates. 

4 . 2 . 1 . 4 Coding Information 
Calling Sequence: N/A 
COMMON Storage Used: 

VALUE: LR3 - Number of rows recorded (LR3 ^ 200) 

LC3 - Number of columns recorded (LC3 ^ 200) 

TBB - Real array of recorded radiance values for selected 
pixels 

PLTTEM - Logical indicator of desire for temperature calcu- 
lation and plot 


PLTREF - Logical indicator of desire for reflectance calcula- 
tion and plot 

PLTCLD - Logical indicator of desire for cloud optical thick- 
ness calculation and plot 

ANG - Zenith angle associated with scene 

Input and Output: 

Unit 6 - Printer unit for status and error messages 
Unit 5 - Card reader for input NAMELIST INPUT: 

NCIiANl - Desired number name of data channel 
NUMPIT - Pixel skip factor 
NUMLIN - Line skip factor 
IPIXEL - Starting pixel number 
1ST LIN - Starting line number 

PLTTEM - Logical indicator of desire for temperature calcula- 
tion and plot 

PLTREF - Logical indicator of desire for reflectance calculation 
and plot 

PLTCLD - Logical indicator of desire for cloud optical thickness 
calculation and plot 

Error Returns: If an error is encountered in reading the tape, an appropriate 
message is printed and the program terminates. If the user requests chan- 
nels 15 or 1G (which are not present on any S192 tapes received from JSC), an 
appropriate explanatory error message is printed and the program terminates. 

Called Subroutines : RD192, TEMBRII, REFLE1 
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4. 2. 1. 5 Programs or Subroutines To Use MAIN 
N/A 

4. 2. 1. 6 References 
N/A 

4.2.2 TEMBRII (Version 2) 

4 . 2 . 2 . 1 Identification 

English Language Title: S192 brightness temperature calculation and plotting 
routine (version 2) 

Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4. 2. 2. 2 Functional Procedure 

TEMBRH (version 2), like TEMBRH (version 1), calculates the equivalent 
brightness temperature of the input channel's data and calls routines which 
display its results. 

4 . 2 . 2 . 3 Formal Procedure 

The average wavelength for the channel is selected from the wavelengths pos- 
sible by checking the channel number requested. This is then used in the in- 
verse Planck function to calculate brightness temperature. The formula used is 

TBB = 1.4388E04/{\VAVET * LOG [l. + (3. 7413E 04/(17 * WAVET 5 * RAD))]} 

where TBB is the desired brightness temperature 

WAVET is the determined associated average wavelength 
RAD is the radiance value for the pixel 
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Subroutine CONTOU (version 2) is then colled to plot the temperatures calcu- 
lated. Finally, control returns to the calling program. 

4 . 2 . 2 . 4 C oding Information 

Calling Sequence: CALL TEMBRII (NCHAN1) 

where NCIIAN1 is the number name of the desired channel 

COMMON Storage Used: 

VALUE : Refer to Section 4. 2. 1. 4 
Input and Output: N/A 
Error Returns: N/A 
Called Subroutines: CONTOU 

4. 2.2.5 Programs or Subroutines To Use TEMBRH 
MAIN (of QUICK3) 

4. 2.2.6 References 
N/A 

4.2.3 REF LEI (Version 2) 

4 . 2 . 3 . 1 Identification 

English Language Title: S192 reflectance calculation and plotting routine for 
a single channel 

Programming Language: FORTRAN 

Analyst’s Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 
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4 . 2 . 3 . 2 Functional Procedure 

REFLE1 calculates the reflectance of the input channel, plots reflectance through 
a subroutine call, and calculates and plots cloud optical thickness through a sub- 
routine call. 

4. 2. 3. 3 Formal Procedure 

The irradiance value for the channel is selected from the corresponding ir- 
radiance values possible by checking the channel number requested. The ar- 
ray FF from which it is selected was secured through interpolation of irradiance 
values supplied by Dr. Thekakara (GSFC) using the average wavelength for the 
various channels possible for the interpolation independent valuable. 

The cosine of the zenith angle wich was passed through COMMON) is multiplied 
by tills irradiance value and that product is then divided into tt . The factor 
produced is utilized repeatedly in the reflectance calculation loop. The appli- 
cable formula is 

R1 = TBB * 7r/(cos(Z) * IRR) 


where Rl is the calculated reflectance 

TBB is the input radiance value for the pixel 
Z is the zenith angle 

IRR is the appropriate corresponding irradiance value 


If optical thickness calculation and plot is desired, subroutine CLUTHK is 
called. The reflectance array, multiplied by 1000, is plotted by a call to sub- 
routine CONTOU. The program then terminates. 

4. 2. 3. 4 Coding Information 

Calling Sequence: CALL REFLE1 (NCHAN1) 


where NCIIAN1 is the input channel number name 
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COMMON Storage Used: 

VALUE : Refer to Section 4. 2. 1. 4 

‘i 

Input and Output: 

Unit 6 - Printer unit for error message 

Error Returns: If the requested channel number does not lie between numbers 1 
and 22, an appropriate error message is printed and the program terminates. 

Called Subroutines: CLUTHK, CONTOU 

4. 2.3. 5 Programs or Subroutines To Use REFLE1 
MAIN (of QUICKS) 

4. 2. 3. 6 References 
N/A 

4.2.4 CONTOU (Version 2) 

4. 2. 4. 1 Identification 

English Language Title: S192 Wolf contour generation routine (version 2) 
Programming Language: FORTRAN 

Analyst's Name and Organization: F. Milasi, Computer Sciences Corporation 

Programmer's Name and Organization: F. Milasi, Computer Sciences Corpo- 
ration 

4.2.4. 2 Functional- Procedure 

CONTOU (version 2) utilizes Wolf plotting routines to contour input arrays cal- 
culated from S192 data 

4. 2.4. 3 Formal Procedure 

Maxima and minima values for indices for contours are set using variables input 
from COMMON. Plotting development is begun through calls to subroutines 


NOSTAE, PLOTST, and SETSIZ. Depending upon the logical values of the 
plot indicators, any one of tlirec plots is initialized and a title printed through 
a call to IIORLIN. The three possibilities are brightness temperature, reflec- 
tance, or cloud optical thickness. The frame size is then set through subrou- 
tine SETGRD, the letter size changed through subroutine SETSIZ, and the 
format of the contour labels set through subroutine CONFRM. Subroutine 
INDEX requires all lines to be solid (no spacing), while subroutine LABELI 
eliminates the contour line underneath the label for that line. 

The call to subroutine OGRID sets the limits of the plot while the call to UNDEF 
defines all zero entries as undefined. Subroutine FILL replaces all undefined 
values with the average of all neighboring defined values. The actual plot is 
created through a call to subroutine TRACER and the frame is advanced through 
FRMADV. Since only one plot is to be made, the frame counter is set to 999 
and recorded, and the plotting is completed through calls to SETBLK and 
ENDPLT. Control then returns to the calling program. 

4. 2. 4. 4 Coding Information 

Calling Sequence: CALL CONTOU (no arguments) 

COMMON Storage Used: 

VALUE--Refer to Section 4.2. 1.4 
OPTION — Refer to Section 4. 1.8. 4 

BUF$ — BUFFER: storage buffer needed for large contours by Wolf con- 
tour program 

Both OPTION and (because of plot size desired) BUF$ are required for 
the utilization of the Wolf contour package. 

Input and Output: Plottape for Wolf contour output 

Error Returns : N/A 
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Called Subroutines: NOSTAE (OS/3GO system routine), PLOTST, SETSIZ, 
IIORLIN, SETGRD, CONFRM, INDEX, LABELI, OGRID, UNDEF, FILL, 
TRACER, FRMADV , SETBLIC, ENDPLT (all Wolf contour package routines) 

4.2.4. 5 Programs or Subroutines To Use CONTOU 
TEMBRII (version 2), REFLE1 (version 2), CLUTHK (version 2) 

4. 2. 4. 6 Fteferences 
N/A 

4.2.5 CLUTHK (Version 2) 

4. 2.5.1 Identification 

English Language Title: S192 equivalent optical thickness determining routine 
(version 2) ' 

Programming Language : FORTRAN 

Analyst’s Name and Organization: F. NMasi, Computer Sciences Corporation 

Programmer’s Name and Organization: F, Milasi, Computer Sciences Corpo- 
ration 

4. 2. 5. 2 Functional Procedure 

CLUTHK (version 2) calculates equivalent optical thickness and generates a 
plot through a subroutine call. 

4. 2.5.3 Formal Procedure 

The SPLINE interpolation routine is used to determine equivalent optical thick- 
ness using the previously calculated reflectance of the channel. The first call 
to SPLINE initializes the frequently utilized variables; the second call (in the 
loop) actually does the interpolation. 

The second derivative at both the upper and lower limits is set to zero because 
of the nature of the data which is being interpolated. The quadrant 1 confined 
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graph of reflectance versus optical thickness is nearly linear for small values 
of optical thickness and asymptotically approaches the KEFLEOl vertical 
line for extremely large values of optical thickness. In either case, the second 
derivative is nearly zero (and for all practical purposes acts as such). 

After calculation, subroutine CONTOU is used to plot the derived optical thick- 
ness. Control then returns to the calling program. 

4. 2. 5. 4 Coding Information 

Calling Sequence: CALL CLUTIIK (no arguments) 

COMMON Storage Used: 

VALUE : Refer to Section 4. 2. 1 . 4 

\ 

Input and Output: N/A 

Error Returns: N/A 

Called Subroutines: SPLINE, CONTOU 

4. 2.5.5 Programs or Subroutines To Use CLUTIIK 
REFLE1 (version 2) 

4. 2.5. 6 References 
N/A 

4.2.6 Hardware Requirements 

One OS/360 printer for output listings and error messages 
Two OS/360 tape drives for input tape and WOLFPLOT tape 
One OS/360 card reader for NAMELIST INPUT 

4. 2.7 Core Requirements 

The core requirement for the entire program (including the required Wolf 
contour package) in 452K bytes. 
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4. 2.8 Time Hequii’erocnts 


4.2. 9 Card Input 
See Appendix I. 

4.2.10 Data Card Format 
See Appendix I. 

4.2. 11 Output 
See Appendix I. 
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APPENDIX A - LIST191 RUN PROGRAM LISTINGS, INPUT, 

AND JCL OUTPUT 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


A-l 




J i ?. 


! i 


li 

!• 'U- 


// /km jf-il y] JOB ( S202 Y2M)4D,T .1 UD3A0, on 11101 ) , JDB.MSGLEVf:L=l 
//v T n J S I) A T F RF'AD A HI > LIST S-191 TAPES 

/ / F X E C F IJ R TH A M H , HA R ri - « ! J H T = 2 , I- H C HI C , L I S T . 1 1 ) . HA P t X R F F ■ , R F G I 0 N«235K 
//SniH-’O.SYSTM DD * 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 


THIS PROGRAM WAS WRITTEN BY M. HACK OF C.S.C. FOR TASK OV2(SKYLAH) 
UNDER CONTRA C T H AS -5 - 11999 IN S E P TEW HEP.- DC TO H F R ,1973. IT 
I IT ] I I 7£S SUHRllUTIIiF KDHiyi TO READ THE S-I91 TAPES SENT FROM 
HOUSTON ( JSC ) . IT THEN LISTS THAT DATA FOR PERUSAL HY SCIENTISTS. 


NO 1 IN CALL SEUUFNCE OF ERRSET, TELLS BED INN INC SYSTEM 
NUMBER ERROR TO WHICH SUBROUTINE APPLIES 
NO? IN CALL SEN. OF ERRSET. TELLS NUMBER OF ERRORS ALLOWED 

before termination occurs. 

NO 3 IN CALL SEN. OF ERRSET. TELLS NUMBER Of ERROR MESSAGES 
SYSTEM SHOULD LIST. 

NO A IN CALL SEN. OF ERRSET. TELLS SYSTEM TO GIVE TRACE FOR 
EACH ERROR MESSAGE. 

NO 5 IN CALL SEP, OF ERRSET. TELLS HIGHEST I HC ( SYSTEM NO. > 
NUMBER ERROR TO WHICH SUBROUTINE APPLIES. 


NCQNf) IS AN INDICATOR SUPPLIED BY THE SUBROUTINE RDH] 91 AND ITS 
OTHER ENTRY ( RD191 ) -1 MEANS HOUSEKEEPING DATA 

=2 MEANS REGULAR DATA 
=3 MEANS END OF FILE 

=4 MEANS ERROR - VARIABLE MORE THAN TWO 
BYTES LONG 

NOTE - WE INITIALIZE IT TO ZERO AS A DEBUG AID 


NTYPE IS AN INDICATOR SUPPLIED BY USER =0 MEANS WAVELENGTH IN 

MICRONS IS DESIRED 
FOR INDEPENDENT VAR I ABL 

' =1 MEANS wavenumber in \ 

- . - :■ (CM)- 1 IS DESIRED 0 

FOR INDEPENDENT VAR 1 ABL 

THIS VALUE IS PASSED TO THE SUBROUTINE RDW191 OR 
ITS OTHER ENTRY (RD 191) 


INTEGER MS AMU ( ? 1 ) 


REPRODUCIBILJTy OF TH R 
ORIGINAL PA GS IS PCK)R 


I 


,:V 


A -2 




IWTHiF.'i. 1 NOA'IHT 7 ) /(), M, n,i),n, 0,0/ 

TM1 I- Of IDAP-GM Y?(>) , Ii>A TtiV( 7 20 ) , I HEAD { 10) 

LOGICAL*! 11 A T Ml. ( ] ^40) ,OArm,( 1 440) 

I no I r.Al.vl T l n. iH^lMiUlIH) 

I MTFGFR*2 IT | '"F ( 4 ) . I T T >■' P 1 ( 3) 

I NT EGER 1 1 is to ( 2 ] ) /(), 0,0, (1, 0,0 , 0,0, 0 , 0 ,0,0, O, O, 0, 1 » 1 , 1 , 1 , l , ) / 
REAL** w T Y P f; ( 3 ) 

RFAI,*» TYPE ( 3 , 2 ) / ' ‘XAVEI.PMG ' , * TH I N M I • , • CRONS • , ' WAVENIJMH • , 

1'FR TO ( C ' , ' M ) - 1 '/ 

DIMENSION! OATHT 340 ) , DATli ( 360),II)ATH( 360),inATU( 360), 01(4) 

FOU I V ai.fmt; E ( I T T ME ( I) . IT I ' E 1 < 1 ) ) 

FOIJIVAI. FMCTl-T OATiK 1 ) , IOATh( 1 ) , I |U\Th 2 ( 1 ) , PATH!. ( I) ) , (PATH! 1 ) , 

1 I DATIJ ( 1. ) , [ 0ATU2 ( I ) , P ATM L ( ] ) ) 

FOUTVAI.FMCF ( T ‘'(OATH ( I ) * I MM 1 ) , ( I .V ! > A T M ( ?) , I MM2 ) , ( J N D A T H ( 3 ) , IMM3) , 
1 ( I MDATM ( 4 ) , I |-'M 4 ) , (f MO AT El ( 5 ) , I MM3 ) , ( 1 NDATH ( 6 ) , I MM 6 ) , 

?( TMDATHT 7) , 1MM.7) 

DATA Mm , NO 2 , MO 3 , N04 , Ml) 5 / 207 ,20,20,2,999/ 

DATA MDAT ,ivDAT H/ 0 , 0/ 

DATA NCMMD/O/ 

DATA NTYPE/O/ 

EXTERNA). MYERk 


FORMATS 

1000 FORMAT (15 ) 

2000 FORMAT ( I'll ,5?X, ' HOIJSFKF EP 1 NO DATA SKYLAB 1 9 1 ' / , 1 X , 61 X , ' PAGE ',15/, 
... 1 1 X , 5X , ' RECORD 'IF NOTH ( BYTE S ) = ' . I 5 , 1 4X , ' DATE OF TAPE GENERAT J C)N= ' , ■ 

2313., 14X, 'START DATE OF 0 A T A = ' , 3 I 3 / , l X , 5 X , • T! I ) . M E A S U K E M E M T S DES C R J B 
3F0=« ,1?.10X, 'DATA BLOCK LENGTH ( BYTES )= ' , 15, 10X, ' MG. OF DATA BLOCK 
4S PER DATA k.ECORO = • , 15//, IX, ' MEASUREMENT ' ,4X, ' START ' ,3X, 

'■5 ''NO. SAMPLES', 4X, 'NO* H ITS' ,6X , 1 N'I'FkCEPT ' , 5X , ' INTERCEPT 1 . 7X , 

6 ' SLOPE ' , 10X, ' SLOPE*, 8XV ' FRAME ' , 6X , » T IME ' / , 1 X , 13X, 'LOCATION' ,3X, 

7 ' PER BLOCK ' , 7X , ' PER ' ,23X , ' COMPONENTS' ♦ IPX, ' COMPONENTS ' , 5X, ' TIME • , 
R6X , ' BETWEEN' / , IX, 14X, '( BYTES )', 15X , • MEASUREMENT ' ,62X , 

O'OFFSET ' ,5X, 'SAMPLES' //) 

2050 FORMAT ( ] H0,?X ,«A1 ,’fX, 14 ,HX, 13,1 OX, I3,6X,E14.7, IX, 16, IX, 16, IX, 

1 F 14 . 7 , 1 X , I 6 , 1 X , T 6 , 2X , I B , 3X , 1 H ) 

2100 FORMAT ( 1 H 1 , 52X , ' HniJSEKEEP I OG DATA-SKYI.AB 1 9 1 ' / / , l X , 6 1 X , ' P AGE 
1 IS// ,1 X , 32X , 60A l // , 1 X ,47X , ' DATA J S ' , 1 X . 3 A'R/ , 1 X , 24X , 

2 ' FlLTF’i SEGMENT ] ' . 2 X , ' F ! LTER SEGMENT 2 ' , 2X , ' FILTER SEGMENT 3 ' , 

3 2 X , ' F I LTER SGGn hWT4 ' . 2X , ' El LTF>: SEGMENT 5 ' , 2*, • FILTER SEGMENT 6 ' / ) 
21 50 FORMAT (] HO ,'4(0. ACTIVE WAVELENGTHS * , 2X, 5 ( 6X , I 4, BX ) ,6X , 14/ ) 

2200 FORNAK IHO, ' WAVELENGTH 2X , 15 , 7X , 5( E16.B, ?.X ) , E 16. B ) 

2250 FORMAT ( 1 (10, 'NOTE- A VALUE ABOVE OF -1. IS TO HE IGNORE.!' - IT MERELY 
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] INDICATES THAT V'AVfU l-iKn’HS FOR THAT S E GM E f\ 1 HA VH ALREADY HLEN COM 
2 P I H T l P • / ) 

2300 FORMAT ( nil , 3SX, • SKYl. AU 1 V 1. DAT A • , 2X , • ER At.If T I Ml: = 1 , T 10 ,2X , • OR • , 
12X,3I3/» IX, 31 v, 'PAGE 1 , IX, 13/) 

2 330 FORMAT ( 1 HO, 'HEW > if- ASUKEH: N T ' , 2 X ♦ H A 1 / ) 

2400 FORMAT ( 1 H 1 ,34X. ' sKYI.AR 1 w 1 DATA (VO NT INUPD ' ♦ 2X » ' FRAME TIK!:= • , 

1 1 10 ,?X , 'HR • , 2 >’ , 3 13 / • 1 X , o 1 X , ' PARE ' , 1 X , I 3 / ) 

2430 FORMAT ( 1H , 6L20. H ) 

2300 FORMAT ( I HO , ' Hii,\ F H F: k F • / ) 

2330 FHRMATf 1H0, 'REGULAR DAI A RECORD ENCOUNTER If D ON F I R ST READ - FXPFCT 
1 E 0 l-lf HIS F KE E P I MG - E HR OR ' / ) 

2300 FOR MAT UNO,' ME WERE TOLD TO EXPECT ONLY ONE OR TWO BYTES PER MEASU 
1REPEMT PARAMETER - WE HAVE PORE - ERRORS**/) 

2330 FORMAT! li-IO, ' END OF FILE ENCOUNTERED IN HDUSEKEEP INC RECORD - ERROR 
]_-#***;/ ) 

2700 FORMAT f] HO,- 'END OF FILE ENCOUNTERED'/) 


CALL TO FRRSET MADE SO THAT DUMP WILL BE GIVEN FOR ERROR 
TERMINATION. 


CALL ERR $ ET ( NO I . N02 * NO 3 . N04 , MYERR * NOS ) 


M T Y P E 1 S REA D T M TO PROGRA M ON UNIT 5 
READ (5. 1000) N TYPE 


HOUSEKEEPING RECORD - (HEADER RECORD) READ HERE 

CALL RDH191 (DATH.NCOND.NTYPE) 

GO TO (10, 250, 270, 230 ) ,NC0ND 

io . . continue : 

HERE, HOUSEKEEPING RECORD IS WRITTEN 
NDATH-NDATH+1 


THE FOLLOWING R FARR AfMGE WENT OF DATA IS NECESSITATED BY 
HOUSTON'S METHOD OF STORING DATES. THEY USE THE MILITARY OR 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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Rjwnpi- AN METHOD ( PAY , MONTH , YE A« ) , WHILE OnDDARO USES 
THE USUAL I. AY'-'A-t-lJ.S. M-THl*U( MONTH, DAY , Yb AW ) . Al. Si V, A 
SINGLE ARRAY R f-.i-ff RfcNC 1“ IN III TAKft-S • LESS T I ML THAN* SEPARATE 
L l ST I MGS . 


THF AD ( I )= 
I HI- Ant? ) = 
t M E A D ( 3 ) = 
I Np AH (.4 ) a 
IHFAPt S ) = 
I HEAD ( A) = 
I H E A H ( 7 ) = 
Illf-A!)t;u = 
I H FA I'M 9 ) = 

I i-i f a n ( in > 


i hath? 1 1 ) 

1 HATH? ( 7 ) 

1 HATH? ( ? ) 

J HATH? ( / f ) 

I HATH? ( A ) 

I HATH? (S) 

I HATH? { ( ) 

I HATH? ( R ) 

I HATH?! V) 

= I OATH? ( 10 : 


WRTTE19, 2000) MOAT H » 1 HEAD 


WMFAS=IDATH? ( H ) 

IK-310 

I L 1 = - 3 

I ? 1 = - 5 

I ? 3 = 3 

I?5 = 4 

127 = 5 


THF I MO ICES ABOVE AMO 
CORRESPOND!: MCFS - 


BELOW HAVE 


POLL OW I NO 


WILL POINT TO THE INTERCEPT VALUE ASSOCIATED 
WITH THAT MEASUREMENT 

WILL POINT TO THE SLOPE VALUE ASSOCIATED 
Ml T H T H A T M E A S U R EM E N T 

AMD 1L? GIVE THE RFC INN I NO AND ENDING 
VALUES RESPECTIVELY FOR THE MEASUREMENT 
TITLE OR NAME IN EBCDIC 
THRU I?? POINT RESPECTIVELY TO START 
LOCATION EOR MEASUREMENT, NO. OF SAMPLES FOR 
IT, AND NO BITS FOR IT. 

THRU I ?4 Pfl 1 NT TO THE COMPONENTS OF 

THE INTERCEPT FOR THAT MEASUREMENT 

AND 1 ? A PUIMT RESPECTIVELY TO THE 

FRAME TIME OFFSET 'AND TIME BETWEEN SAMPLES 

F OR THAT ME ASUREM F NT 

AND I ?R RESPECTIVELY POINT TO THE 


ASSOCIATED 




COMPONENTS OF THE SLOPE 



r 







nn 30 LX=], ,M;-IHAS 
1 11 = 1 1.1 + 32 
f L?.~ I 1.1 +7 
IK-IK+? 

I K 1 = f K+ 1 
I 21 - 121+16 
]??.-]?]+?. 

123=123+16 
124=123+1 
T 25 = 1 2 5 + 8 
126=125+1 
127=127+1 6 
128=137+1 

c : .. . .• i 

c . ' '■ ' 

WRITE! 0. 2050) ( DATHL( 1.7 ) ,L7=IL1, 1 L2 ) , ( I DAT 112 ( LZ) , LZ=121, 122) 
1 D ATM ( IK ) , ( TDATH?( LZ ) »LZ=J23, 124) » OATH ( IK1 ) , ( IDATH2 ( LZ ) , 

2 L7 = I 2 7 , I 2 8 ) , ( 0 ATH ( L Z) , LZ = 125,1 7.6 ) 

C. 

C SAVE THE TITLES OF DATA IN A MORE EASILY ACCESSIBLE 

G LOCATION FOR LATER LISTING WITH REGULAR DATA 

C - ■ ' ■■■ 73. ■■ " 

C 

I K T = I L 1-1 

no 20 LTZ = 1,8 

IKT=IKT+1 

TITL( LT7 ,LX)=DATHL( IKT) 

3 20 CONTINUE 

C 

C SAVE THE NUMBER OF SAMPLES OF DATA PER 

C MEASUREMENT IN A MORE EASILY ACCESSIBLE ARRAY 

C FOR LATER USE IN LISTING REGULAR DATA 

C 

131 = 121+1 33 .;. 

MSAMU (1. X ) = I OATH? ( 131) 

30 CONTINUE 

C 

C PRI NT MESSAGE 1 NO I CAT ! MG WHETHER WAVELENGTH 

C OR WAVE NUMBER WAS KEOUESTEO AMD THE UNITS IN 

C WHICH THAT REDDEST WILL BE PRINTED 

C 

L T = NT Y P E + 1 



I 


. WTYPH ( 1 ) = TYPP ( I . I.T ) 

WlYPFt? ) =TYPF ( ? * I T ) 

WTYPE ( 3 ) =TYPt (3 , 1. T ) • 

NPATH=-vnATH+l 

NR Tie ( <•> , 2100 ) MO ATM, ( OATH!. (17. ) , 1.7=693 ,7 92 ) , WTYPE 
WRITE (9, ?1 90 ) ( I HAT H2( 1.7. ) , 1.7 = 3 I ( , 3m? ) 

OR T PR-NINE' THE HIGHEST NUMBER OF ACTIVE 
WAVELENGTHS RECORDED FOR ‘ANY ONE FILTER.. 
VALUE WILL «F IlSfcl) IN LOOP TO PRINT OUT 
VALUES. 


LOOP- TnATw2( 377) 

1ST = 377 

DO AO I T = 1 ,5 
1ST = I ST + 1 

I. F ( LOOP . LT . I OATH? ( 1ST ) ) 
AO CONTI HUE 


LQOP= IDATH2 ( 1ST ) 


I PM 1 = 1 91 

I MM? = I ON .1 + I D AT H? ( 3 7 7 ) ‘ 

I MM3 = I MM2 + T OATH? ( 378 ) 

I MHA= I MM3+TDATH2 ( 3 79) 

I MM5= I MMA+ I DATH2 ( 380 ) 

I M M 6 = I M M.5+ 1 DA T W 2 ( 381 ) 

I MM7= I MH6+I DATH2 ( 382 ) 

AS ONLY ACTIVE WAVELENGTHS WERE SAVED, VALUES 
ARE 'BACK TO BACK' -NO ZERO FILL . HOWEVER, 

WE LIST THEM BY FILTER IN A HORIZONTAL 

LI NE (FIRST ONE FOR FILTER 1, FIRST ONE FOR FILTER 2, 

FTRST ONE FOR FILTER 3, FIRST ONE FOR FILTER A, 

FIRST ONE FOR FILTER 5 AND FIRST ONE FOR FILTER 

6, FOR EXAMPLE) SO WE INSERT A KEY VALUE OF -1 

IF ALL ACTIVE WAVELENGTHS FOR THAT FILTER 

HAVE BEEN LISTED. IT APPEARS THAT 20 WILL 

BE THE HIGHEST VALUE APPEARING IN ANY ONE FILTER ON 

ANY ONE TAPE. 

NOTE THAT I MM 1, 1 MM?, ETC. ARE EOUIVALENCEO TO 
ARRAY I NO ATH* 

DO 70 LT=1 , LOOP 

00 60 L7.Y=] ,6 • 


So 






T 


• f = I i' HA TH ( L / Y ) -i-l. I 

i f ( i .( n . t n n a t h ( i. / y i- 1 ) ) ( ;u r o 

OJ ( I. / Y ) -HA | H{ [ ) 

00 Til 60 
‘if. c h.mt I f mi i; 

0] (l.7Y)=-l . 
bn cunt i 

WRITH(9, P?()0 ) i. r . n i 
70 CONTINUE 

WR IT E ( 9 , 275 0 ) 

0 

C ALL NA VELENOTBS ( OR WAVENUMBER S ) HAVE BEF.M LISTED! 

C •" : 

C 

C SAVE NUMBER OF ACTIVE WAVELENGTHS FOR EACH OFT EC TOR 

C FOR EACH FILTER FOR USE IN PRINTING REGULAR DATA 

C MOT F - 3 DETECTORS EXIST FOR F1LTER1, 3 DETECTORS 

C FOR FILTER ? , 3 DETECTHKS FOR FI LTER 3, ? DE TkCTORS 

C FOR FILTER b,2 DETECTORS FOR FILTER 5, AND 2 FOR FILTER 

C : 6-15 IN ALL FOR REGULAR DATA THEN 6 MORE 

C MEASUREMENTS, (ALL SKYHET DATA WITH ONE VALUE 

C EACH), ADD TO MAKE THE El MEASUREMENTS. MOTE ALSO 

C THAT I USED HAS INITIALIZED TO 0 FOR THE FIRST 15 AMD TO 

C 1 FOR THE LAST 6 SO THAT THE LATTER MEED NOT BE 

C ■./' SET HERE, 

G ■ ' ■ . 

DO SO L T = 1 ,3 • 

BO IUSEDT LT ) = I DATHR ( 3 77 ) 

■DO 90 LT-4,6 

90 IUSFD ( I.T ) = IDATH?(378) 

DO 100 LT = 7,9 

100 IUSFD (LT i = I D A T H ? ( 3 7 9 ) • 

DO 110 L T = 1 0 * 1 1 ■ ■ f 

110 I U S F D ( L T ) = I D A T H ? ( 3 8 0 ) 

DO 170 L T = 1 ? , 1 3 - 
1?0 I USED ( LT ) -] OATH? ( 381 ) 

DO 130 IT =1 A ,15 
130 IUSFD ( LT ) -I OATH? ( 38? ) 

1 a 0 CONTI NUE 
C 

C RFOULAR DATA RECORD R FAD 

0 

CALL R D 1 9 1 (f'ATU,NCOfvD) 

00 TO (10,130, ?.-<<), ?60 ),MCOND 

1 50 CONTINUE 


i > 


RiEPRODUCDBILITy OF THE 
ORIGINAL PAGE IS POOR 


HERE, DATA RECORD IS LISTED 


SUHROUT1 NR FRATIM IS CALLED TO CONVERT FRAME TIME IN (101-4 SEC 
UN ITS TU HOUR S * M I flUTES AN!) SECONDS 


CALI. FRATIMt IDAHO ] ) , IT IMG » 


i 


\ 3 


PR I MTfHJT LOGIC HERE IS SET-UP ASSUMING THAT LARGEST 'NO, 
OF SAMPLES PER MEASUREMENT' WILL BE 20 - HOUSTON AND 
EARLIEST tapes confirmed this. 


L D 1=7 
NS AMPS =0 

DO PAO L 7 = 1 . NME AS 
I F t LZ .EG. 1 ) GO TO 160 


EVERY 8 MEASUREMENTS. WE START A NEW PAGE WITH 
ITS OWN TITLE AND NEW NUMBER , CALL SKY LAB 191 
DATA PAGES ARE NUMBERED CONSECUTIVELY BY THIS 
PROGRAM ) A CHECK OF MOD ( LZ ,8 ) YIELDS NEEDED 
INFORMATION 


IF (MODI LZ ,8) .NE. 1 ) GC) TO 170 
N0AT=N0AT+1 

WRITE (9 . 2400 ) IDAHO 1 ) , I T I M E 1 ? N D A T 
GO TO 170 
160 CONTINUE 

MOAT =ND AT + I 

WRITE (9, 2300) IDATU ( 1 ) , IT I ME 1VNDAT 

170 CONTINUE' 


TITLE OF MEASUREMENT EXTRACTED FOR PRINTING 
ABOVE MEASUREMENT 


DO 1«0 I l_ B = 1 . H 
T I TU 1 II.H)=TITL( TI.B.I.Z) 
180 CONTINUE 

WRITE! 9, 2350) TITU 




C 


n o o o o o 



C . NUTT- JOBS IyFrFURMF 0 BY E AC I INDEX: 

q jj)j IS Tun 1 ITDFX in THE DATA A S POUND If*’ DATIJ . 

C wp ADD FAIWiU-R IU : SAKFLfcS Fllllf-jn FUR THE PRt V I HUS 

C ME A SUREMEHT TO OF T E R M IMF THE ST-ART ! J I)S I T 1 t J.\* FOR TUG 

0 N [' i.i DATA. ( PRC-VI PUS HO. OF SAMPLES DESIGNATED 

C IVY N, SAMPS ) . l.P?. TUF END OF DATA WHICH IS TO HE 

Q PRINTED FOR THIS MEASUREMENT ) ELUJAI S LD1 PLUS THE 

C N U M HER OF • USEFUL • VAI. 1 1 fc S * ( T H 0 S R A SS DC I AT H p w 1 T H 

C A C T T V F W A V E l. EN G T 1 1 S ) I N 1 ' S DM F . N S A I- P G I VE S THE 

C NUMBER OF ’USEFUL' VALUES. 

C 

MSAKP= 1 USED ( 17 I 
LD1=L01 +NSAWPS 

IF NO 'USEFUL' DATA IS FOUND FC1R 
THIS MEASUREMENT, ( ASSDCI ATED NO. OF ACTIVE 
WAVELENGTHS IS ZERO), SKIP PRINT PROCESS HERE 
AMD LIST 'NOME H E R F ' . 

IF (MSANP.EO.O) GO TO 220 
I. P 2 = L P 1 +NS AM P- 1 
1 0 = NS AMP / 6 

IF(U).FO.O) GO TO 200 
101 = 1.01-6 
DO IDO LM=1 » TO 
r d i = t n i 

I 02 - I D 1 + 5 ■ ■ , 

■ WR IT E ( 9 » 24 50 ) ( D ATU ( L Y ) . L Y = I D 1 » I D 2 ) 

1 90 CONTINUE 
I DI-I D] +6 
102 = 1.02 

GO TO 210 • - 

200 CONTINUE 
I Dl=LDl 
102 = 1.02 
210 CONTINUE 

WR I T E ( 0 . 24 5 0 ) (PATLI ( L Y 1,1 Y = I 0 1 , I 02 ) 

GO TO 230 
220 CONT I HUE . 

WRITE! 9. 2500) 

230 CONTINUE 

MS AMP S = MS AMU ( LZ ) 

240 CONTINUE • 

C ' 

REPRODUCIBILITY OF THE 
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p o :o o o o o o o P o o ooP o o o o o n o n o o o n o o 


READ NEXT RECORD 


LIST.] NG UF TH I S ONE COMP LETL* ! 


r. 


GO Til 1 40 
?M\ CONTINUE 

ENCOUNTERED DATA RECORD ON FIRST READ - EXPECT ED HUUSEKEEP I MG 
' ERROR 

WRI TE ( 6, ?5$<> ) 

CALL ABEND 

260 CONTINUE 

ERROR ENCOUNTERED IN READ - POSSIBILITIES - 

MISUNDERSTANDING BETWEEN HOUSTON AND GODDARD - SUPPOSED ONLY 
TIME LOR TWO BYTES PER RECORD - FOUND MORE! 

BLOCKS 1 7 E TOO LARGE 

LOGIC OF INDEX VALUE UPKEEP DM INPUT ARRAY IN ASSEMBLY READ 
INCORRECT - WRONG VALUE. PRESENT 

WRITE! 6t 2600) 

CALL ABEND ; 

270 CONTINUE 

EARLY UNEXPECTED END OF FILE ENCOUNTERED - ERROR 

WRITE! 6, 2650 ) 

RETURN r wT 

2 BO CONTINUE 

NORMAL END OF. FILE 

WRITE (6, 2700) 

RETURN 

FMD 

SUBROUTINE PRAT INI I Y, I TINE) 

THIS SUBROUTINE WAS WRITTEN BY F. HI LAS I OF CSC FUR TASK 09? 
■SKY LAB » UNDER CONTRACT NAS-S-1 1999 IN DEC. '73. 
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n o o o r> o o o n o p o o o r) n n r> o n o 


■I , . 

C I T CfWVFK'l S FK A Hi: TIME I N UNITS 111- 1.101-4 SEC. 

C 1 NT fl Hfjl.lM » WIN. AMP SEC. . * — _ — • 

c 

c; 

-Y= FRAME TIME 


INTEGER*? 1 1 I ME ( ) 

R F A L * R X,Y,T,A,B,G 

TO EFT THE NUMBER OF HOURS - 

Y= I Y 

x = y / to non. 

A--X/3 600. 

1 A = A 

: I T I MET 1 ) = I A 

TO GET THE NUMBER OF MIN. - 

T = X - ( I A *3 600 ) 

R-T/60 

ib=b : ■ 

I TI ME (?) ~ I B 

— TO GET THE NUMBER OF SEC. - 

C = T - ( I B Y-60 ) 

C=C+.5 
IC = C 

1 TIMET 3 )=IC 
I T I ME ( M = 00 
R FT URN 
FND 

SUBROUTINE MYERR 

THI S SUBROUTINE , WRITTEN BY M. MACK OF CSC FOR TASK 
09?, SKYL4B, UNDER CONTRACT NAS- 5 -1 199 9 , INOEC. • 73, IS 
UTILIZED BY A CAU. TO SYSTEM SUBROUTINE ERRSFT. THAT 
ROUTINE PREVENTS SYSTEM ERROR Tl) TERMINATE PROGRAM* 
BUT PASSES CONTROL TO MYpKR . THEN MYERR CALLS ABEND 
TO SECURE A DUMP, MANY SYSTEM ERRORS DO NOT TERMINATE 
WITH A DUMP, SO ERROR TRACING, IF NEEDED, WOULD BE 


.? v 
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reproducibility 

original PAGE is 


OF THE) 
POOR 


c 

c 


nil- FI CULT H I T HOI IT THIS. 


call abend 

RETURN 

FMf) 

// FXFC AS MG 

//snuRCf-'.SYS in on 


THIS SUBROUT I imE WILL READ SKYI.AB S-19 1. DATA TAPE’S AMD RETURN 
THE 'NEEDED. VALUES M A FUR TRAN ACCESSIBLE ARRAY EfJR FURTHER 
PROCESSING. IT WAS WRITTEN IN SEPTEMBER, 1^73 hY t- . HACK OF 
C.S.C. FOR TASK 09? - CONTRACT NAS -9-1 1 949 - SKYLAF. 

CALL SEQUENCE FOR HOUSE KEEP I MG ENTRY, (BY WHICH SUBROUTINE 
IS CALLED), I S RPH 1 9 1 ( HATH ,NCONP , NTYPF ) 

PATH IS THE OUTPUT ARRAY OF VALUES FROM TAPE 
NCOMD IS AM INDICATOR SUPPLIED TO USER GY SUBROUTINE 
=1 IT MEANS HOUSEKEEPING DATA PRESENT 
= 2 IT MEANS REGULAR DATA IS PRESENT 
=3 IT MEANS AN END OF FILE WAS ENCOUNTERED 
=4 IT MEANS ERROR PRESENT. EITHER V AR TABLE WAS MORE 
THAN TWO BYTES LONG, OR I. N PUT OAT 'ARRAY* POINTER 
HAS INCORRECT VALUE OR BLOCKS HE IS INCORRECT 
M TYPE IS A VAR TABLE SUPPLIED BY THE USER - IT INDICATES THE 
FORM THAT THE USER WISHES THE INDEPENDENT VARIABLE TO TAKE 
=0 MEANS THE USER WISHES WAVELENGTHS IN MICRONS 
: R;-.,= l IT MEANS THE USER WISHES WAVENUMBERS IN (CM ) -1 

C A LL SFOUEMCE FOR REGULAR DAT A ACCESS I NG I S RD191 ( DATU * NCOND ) 


THIS MACRO IS USED THROUGHOUT THE PROGRAM 

IT CHANGES A FIXED POINT VALUE TO A FLOATING POINT VALUE 


MACRO ' -! 

FLOAT SR F» SRC 

ST UR SRC , FPT+4 

LPR SRC, SRC • 

0 SRC , =X* 46000000* 

ST SRC.FPT >-,• 

LF SRFtFPT 

A E SR F , =X ' ^/SOOOOOO ' 

L SRC, FPT+4 • 

LTR SRC, SRC 
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l im t : r kkf, r.KF 

mend ' • 

*r 

RPH1 l I] CSECT 

ENTRY RP1V] 

* THIS IS ELI Ml MATCH. FOR DEBUGGING PUkBUSES 

* PR I NT MO DAT A , NOGEM E L I WI MATES EXTRANEOUS S Y ST EM 

* G If N E K A T E 0 E X P A N S I O M Of; ' INSTRUCT- I0«\.S 

SAVE (14,12),,^ STAMPAkP SUUKOUT1 M: SET-UP IN WHICH 

* SAVE AREAS PROP 0 A LUNG PROGRAM ARE 

* ■ PRESERVED. 

* IN CASE DIFFERENT REGISTERS ARE DESIRED AS PROGRAM EXPANDS, 


*v-. 

; LITERALS ARC- 

SET LJP for USE IN PROGRAM. THESE CAM BE 


CHANGED . 


•v- . .. 

V 

THE 

# 

FIRST 5 

, THE SY STEM R EG I ST ER S , AR E NAMED ONL Y 

* 

TO 

PROVIDE 

CLARITY IN UNDERSTANDING THE NAMES GIVEN 

* 

TO 

T H E OTHER S . W H E fv 1 1 S ED, FOR EPPHASI S t E X P L I C I T 

5 ! c ■ 

NUMERAL NAP 

ES WILL BE USED. 

•'»' 

R7. 

FOU 

0 

SYSTEM USED REGISTER 

RA 

F MU 

1 

SYSTEM USED REGISTER 

RM 

FOU 

13 

SYSTEM USED REGISTER 

Rlvi 

FOU 

14 

SYSTEM USED REGISTER 

Rn 

FOU 

15 

SYSTEM USED REGISTER 

RB ' 

FOU 

? 

USUALLY DATA LOADS — : - 

RC 

FOU 

■ 3 

SECONDARY BASE REGISTER 

RD 

EOU 

4 

G E N E R A L U SE AM D DATA L 0 A OS 

RF 

FOU 

5 

LOOP INDEX REGISTER 

RF 

EOU 

A 

USED AS INDEX FOR OUTPUT ARRAY 

RG 

FOU 

' 7 

USED AS INDEX FOR GIVEN TAPE INPUT ARRAY 

RH 

FOU 

8 

ALSO CALLED DATBASF - SEE BELOW 

R I 

FOU 

9 

USED AS BASE REGISTER FOR SUBROUT 1ME 

R J 

EOU 

I 0 

INDEX REGISTER 

PvK 

FOU 

11 

GENERAL USE - SEE CODING 

RL 

FOU 

1? 

GENERAL USE - SEE COOING 

DATBASF 

FOU 

a 

USED AS BASE FOR DATA SAVED SHOULD BE 


DIFFERENT FROM BASE REGISTER OF SUBROUTINE 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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GENERAL SUBROUT I NF: SR -III-’ 


'WALK KUO 

us i ng here) ♦ r I • kc 

L RCvHASEADl THIS ALLOWS USE Hi 1 'SECOND BASE 

REG I SULK 

B AG A 1 1 1 L 

HC A ( HERE } +404A ) 

ST n,SAVE + 4 

LA RJ ♦SAVE 

ST KJ.HI 13) 

LK 1 3 ♦ K J 

DEBUG 

MV 1 BUGltC'l' 

I. DAT BASE ♦ 0( 1 ) 

USING DATIJ ♦ DAT BASE THESE A L L 0 W REFERENCE TO ARRAY DATU 

IN CODING YET PERMIT DATA TO BE 
PASSED HACK TO CALLING PROGRAM 

ST 1 ♦ ADDAT ■ STORE ADDRESS OF. DATA PASSED IN CALL 


DEBUG 

MV I BUG 2 • C ' 2 1 

;L" ; ' : ;v RB ♦ 4 ( 1 ) 

L R D ♦ 0 ( R H ) 

ST RDtNCUND 

L RbVh(1) 

■ L RD,0(RRi 

ST RD ♦ NT YPE 


LOAD RR WITH ADDRESS IN SECOND CALL 
ARGUMENT 

PUT THAT VALUE INTO NIC ON D 

LOAD RB WITH ADDRESS OF THIRD 
AR GO K E NT OF CALL SEMI JENC E 
STORE VALUE OF THIRD ARGUMENT 
IN NTYPE 


HOUSEKEEPING DATA READ FIRST 


OPEN (TP SI PI ,( INPUT) ) OPEN DATA SFT ON THE TAPE 



GET 

T PS 1 V 1 

IHSFR i ADDRESS OF DATA INTO 

KEG. 1 

ST 

1 , DAT 

STORE ADDRESS OF INPUT DAI A 
FUTURE R F FERENC 1- 

FOR 

MVC 

OATH IPO ) , 0( 1 ) 

FIRST PARI OF DATA TRANSFERRED AS JS 
MO PROBLEMS HERE 

I.H 

STH 

KB, DAT H+ LA 
KB , J'lME AS + ? 

WE WISH 10 SAVE NUMBER OF 
MEASURE ME MS FOR FUTURE USE 



NOTE - WE STORE -HOUSEKEEPING HAT A 1 iM A DIFFERENT ARRAY 
CALLED DAT H ♦ SO CONTENTS CAN BE ACCESSED ,«Y SUBROUTINE IN 
LATER REGULAR DATA PROCESSING. BEFORE RETURNING TO CALL INC 
PR fiO RAN , WE TRANSFER IT TO DA TO ARRAY , ( Wi I TCH THROUGH 
DATHASE USE ALLOWS IT TO BE GIVEN TO CALLING PROGRAM), 

IN THE FOLLOWING LOOP, DATA IS TRANSFERRED TO OUTPUT ARRAY, ( IT 
IS MODIFIED WHERE NECESSARY). NOTE -ORIGINAL TAPE DOES 
NOT HAVE SOME. FULL WORD DATA Oi'J FULL WORD BOUNDARIES 

ALSO, IN THIS LOOP, WE TREAT ALL AS HALF WORDS < BUT 
PLACE THEM IN THE PROPER PLACES FOR FORTRAN ACCESSING. 


* 

LA 

RF, 2.0 

OATH INDEX 


LA 

R G , 2 0 

DAT INDEX 

• 

L 

RE.NMFAS 

LOOP INDEX 

HflliSei 

LA 

R J , 3 

INDEX FOR HOUSE 2 LOOP 

HflliSF? 

LH 

■ft rt.fi) ( 1 , RG) 

INSERT DATA FROM TAPE INTO REGISTER 


STH 

RB , PATH ( RF ) 

STORE IT IM DATH ' 


LA 

RG. 2 ( RG ) 

UPDATE DAT INDEX 


LA 

RF,2(RF) • 

UPDATE DATH INDEX 


BCT 

R J , HOUSE 2 

COMPLETE HOUSE 2 LOOP 


SR 

R B , RB 

INITIALIZE REGISTER TO ZERO 


STH 

RB, DATEK RF ) 

STORE IT IN ARRAY DATH (SPACING TO 
P LACE WORD ON WHOLE WORD BOUNDARY ) 


LA 

R F, 2 ( RF ) 

UPDATE DATH INDEX 


LA 

R J , 1 2 

INI TI ALIZE HOUSE 3 LOOP INDEX 

HHIISF3 

LEI 

R B , 0 ( 1 , RG ) 

LOAD H A I. (-WORD FR DM ; DAT INTO REGISTER 


STH 

RB.DATM RF) 

STORE IT IN DATH 


LA 

RG,2( RG) 

UPDATE DAT INDEX 


LA 

RF, 2 ( RF ) 

UPDATE DATl-l INDEX 


BCT 

. RJ, HOUSE 3 

; COM PI ETF HOUSES l.OOP 


BCT 

RE. HOUSE! 

COMPLETE HOUSE 1 LOOP 


MVC 

D ATH+6 V? ( BO) 

,650(1) o. 



REPRODUCIBILITY op the 
ORIGINAL PAGE IS POOR 


MVC 


DATH+ 7 •>? ( ] 2 ) 


'i' 

■?!* 


710 ( 1 ) 

MC*VI- A t. P H AT 'll*'. [ u I C rril.L- AS WELL AS 
F1GUKLS H'l: .Kl-*<s or* ACTIVE 

WAVLLENG1HS I •; ( A OH FILTER TO OATH 

FORTH I-: R N n T H - PR OGKAM W A S 
MODIFIED 12/6/73 10 ACCOMODATE 
NEW FORM OF TAPES SENT BY 
MOOS TOM , (MURE CLOSELY 
R i- SI: M RLE OR I 0 1 \ A I. PI: S 0 1< IP T TOM 
SPOT. INSTRUCTION AhOVl 
HAD KEEN - 

MVC O.ATH+ /52 ( 12 ) * 71? ( 1 ) 

SI MCE BYTES 711 AND 71? IN INPUT 
ARRAY ON ACTUAL. TAPES HAD 
ZERO FILL. INSERTED CONTRARY 
TO HOUSTON DESCRIPTION 


DEBUG 


MV I 


BUG 3 VC '3 ' 


1:1 


LA 

r n , 6 

INITIALIZE 

I NO EX 

OF 

FILTER LOOP 

SR 

R K , R K 

INITIALIZE 

INDEX 

FOR 

OATH WHICH 



■ POINTS TO NUMBER 

OF 

ACTIVE WAV E- 



LENGTHS FOR 

THAT 

FI 1. 

TER 

LA 

RF, 764 

INITIALIZE 

INDEX 

OF 

HATH ARRAY 

LA 

R G , 7 ? 2 

INITIALIZE 

INPUT 

DAT 

INDEX 


HERE ■, A L SO, M 00 I F I CAT I ON 
WA S MADE 12/6/73 - USED TO 
LOAD RG WITH 724 (WHEN ZERO 
FI I.L HAD BEEN PRESENT) 


ST 


FI 1. TER 


LTR 


RCyGVAL 

R E , D A T H + 7 5 2 ( R K ) 
RE, RE 


TEM P OR A R I L Y STORE 7 
VALUE OF KC IN OVAL FOR 
SUBSEQUENT ACCESSING 

IN IT TALI Z f- COOP INDEX FOR EACH 
FT IT ER RESPECTIVELY 
WE MUST CHECK THAT 
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*1 



I 



h; is/EbO 

I. RB,NI YPE 

I.TR RB,RH 

B7 WAVfrLN 

*u 

.WAVfs'M'i LH R IV , () ( 1 , R G ) 

FLOAT R R t R rt 

DE RRt =E ' 10000000. ' 

# r 

LE RD, =F ' 1 , 1 

PER RO,RR 


STE RDVDATH(RF) 

LA R F * 4 ( R F ) 

LA R G * 2 ( R G ) 

BCT RE » WAVEMO 

LA R K » 2 ( R K ) 


L RRtGVAL 

%•» 

•’i' 

A R B , = F 1 4 0 • 

'I' 

v 

ST RB,GVAL 

-i. ■ 

*■1' 

I.R RG,RB 

RCT RD, FILTER 

FIN W V 


WAVFI.N LH RB.OI J. . RG) 

FLOAT RB.RH 

OF RK,=E» 1000. • 

STE RB, D ATH ( RF ) 


VALUE IS MIT 71 RO 
IF SO, GO TO J SZFkO 

G H E c; K N T Y I ‘ E T 0 0 F T F R N I M E 0 H S 1 R E 0 F 0 k K 
OF I NDEP ENPENT VARIABLE 


WAVENUMBER DESIRED - LOAD IN GIVEN 
VALUE 

CHANGE INPUT INTEGER VALUE TO 
FLOATING POINT • 

CONVFR T S I NPUT M I L 1. 1 M I CRON S ( 1 0-9 M . ) 
TO CM. (TO-? H. ) 

LOAD A FLOATING POINT 1. INTO 
REGISTER 

P I V I OE REGISTER S - E FFECT l VEL Y 

WE HAVE TAKEN RECIPROCAL OF VALUE IN 

RB 

STORE VALUE INTO PATH 
UPDATE PATH INDEX 
UPDATE DAT INDEX 
COMPLETE WAV END LOOP 
UPDATE INDEX FOR NO. OF 
ACTIVE W A V E LE NGT El S I N FILT E R 
ACCESSING 

LOAD RB WITH LAST VALUE 
IN GVAL 

ADD 40 AS THIS IS THE 
N U M PER OF BYT E S P R 0 H 1 S K D 
I N D ES CR I P T I ON , ( T A P E S A $ 

OF 12/5/73 FOLLOW" IT) 

STORE CURRENT VALUE FOR 
LATER USE 

L 0 A[) R G W 1 T El T H I S VAL. U E 
COMPLETE FILTER LOOP 

L o op i s n v F r t s o g n to fj n w v 

TO FINISH PROCESSING 

LOAD GIVEN DATA INTO REGISTER 
CHANGE INPUT INTEGER VALUE TO 
FLOATING PtETMT 
CON VER T I N PT I TNI L l. I K I C RUN S 
( 1.0-9 M. ) TO MICRONS! 10-6 K. ) 

STORE RESULT IN OUT Pi IT AR RAY PATH 



REPROD UCIBILITy OF THF 

Original page is poor. 
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is / fro 






LA 

R F , M h F ) 


1. A 

KG, P ( RG ) 


ROT 

RE, WAVEl.N 

ISZFR 

0 LA 

RK , P ( RK ) 

’fi 

1. 

KB, GVAL 


A 

RB, =F • AO ' 








ST 

HR, GVAL 

*v 

»i* 

LR 

RG, RB 


RCT 

RO, FILTER 


«»> 

-i'* 


"t* 


F I NWV 

L 

RE , NME AS 


l.A 

R G , 3 A 





LA 

RF, 1244 

o# 

CUFF? 

SR 

RJ,KJ 


LA 

RL , 2 

COEFl 

LR 

RK, RJ 

•(c 

AR 

RK , RG 

'i* 

ST 

RL.CTNO 


SR 

R B , R B 


LH 

RB, OATH I KK ) 


LTR 

R B ♦ R B 


i 


UPDATE HATH IDDFX 

UPDATE HAT INDEX 

complete wav eon loop 

UP D A I t ACT! V If WAV. HI. FNGThS IN FILTER 

ACCESSING INDEX 

LOAD RB WITH I.AST VALUE 
IN GVAl 

Ann 40 AS THIS IS THfr 
NUMBER CJF .BYTES PROMISED 
IN DE S CK I P T I ON , ( T A P £ S A S 
OF 1 - 7 / 5/7 3 ' FOLLOW IT) 

STORK CORK b TIT VALUE FOR 
LATER USE 

LOAD KG WITH THIS VALUE 
COMPLETE FILTER LOOP 


INITIALIZE INDEX FOR SLOPE- 
INTERCEPT CALCULATION LOOP 
INITIALIZE OATH INDEX FOR ACCESSING 
OF INTERCEPT AMD SLOPE COMPONENT 
VALUES 

INITIALIZE OATH INDEX FOR INTERCEPT 
SLOPE VALUE OUTPUT 

INITIALIZE RJ INDEX TD ZERO 
INITIALIZE INNER COE FI LOOP INDEX 

TRANSFER CONTENTS OF RJ TO RK 
ADO CONTENTS OF RG - EFFECTIVELY, 
THIS GIVES US THE PROPER INDEX FOR 
ACCESSING HATH ARRAY FOR INTERCEPT 
AND SLOPE COMPONENT VALUES 
RESPECTIVELY 

STORE VALUE OF RL AS REGISTER WILL 
BE USED BELOW 

INITIALIZE REGISTER TO ZERO 
INSERT COMPONENT ( C OF F F 1 C I ENT ) 

TEST IF VALUE IS NEGATIVE - 
HOUSTON JSC RECORDS NEGATIVES 
JUST LIKE POSITIVE'S EXCEPT WITH TdE 
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MOST SIGNIFICANT FIT A ON H - I MM 
EXPECTS ? • S COMF1 EKEN I FOR MI; GAT IVES 
WE MUST MINIFY NUMBER THEREFORE. 


HP 

M 

I.MR 

STH 


BC 

FLOAT 

LE 

SR 

I.H 

LTR 

B 7 

BM 


S 

BZ 

ME 

BCT 

B 

N 

LNR 

STH 


I. PR 
S 

P. 7 
ME 
BCT 

STE 

LE 



UK 

RB,=X'OOOOYFFF' 

RK. HB CONVERT TO NEGATIVE. UBM NEGATIVE ) 

RB , OATH ( RK ) CHANGE VALUE IN OATH SO CORRECT ONE 

J S PRESENT ( THE I R NEGAT IVE - HOUSTON ' S 
- IS DIFFERENT FROM OURS) 

0,0 MO OPERATION - LIKE CONTINUE IN 

FORTRAN • 

R h , R A CHANGE INTEGER INPUT TO FLOATING 

POINT 

RD,=E' 10. • LOAD REGISTER RD WITH 10. 

IN PREPARATION FOR EXPONENT LOOP 

RL. Ki. INITIALIZE REGISTER TO ZERO 

R L , DATH+2 ( R K ) LOAD REGISTER WITH EXPONENT COMPONENT 

RL.RL 

ZERO IF ZERO, GO TO ZERO TO PROCESS 


NEC IF NEGATIVE, GO TO NEG - < EXPONENT 

IS NEGATIVE - CALCULATE VALUE 
DIFFERENTLY) 


RL,=F ' i ' SUBTRACT ONE FROM GIVEN EXPONENT 

ONE IF EXPONENT WERE ONE, POWER IS 10. 


RO, =E ‘ 1.0, • MULTIPLY CONTENTS OF REGISTER BY 10. 

RI..EXP CONTINUE TO DO SO UNTIL COMPLETE 

CALC U L A T I ON OF G I VEN P 0 W E K 0 F T E N 
ONE : GO TO ONE FOR FURTHER PROCESSING 

RL ♦ =X 1 00007EFF ’ TAKE POSITIVE VALUE OF EXPONENT 
RL.RL 

RL , DATH+2 ( RK.) CHANGE VALUE IN DATH SO CORRECT ONE 

PRESENT (THEIR NEGAT 1 VE-HOUSTON • S - 
I S DIFFERENT F R OH OURS ) 

RL.RL TAKE POSITIVE VALUE FUR LOOP INDEX 

RL ,=F • 1 ' ! SUBTRACT ONE 

NONE 1 F M I NILS ONE , GO TO NOME 

RD. =E ' ID. ' MULTIPLY CONTENTS OF REGISTER BY 1.0. 

RL.EXPN CONTINUE TO DO SO UNTIL COMPLETE 

CALCULATION OF POWER OF TEN 
RD.FPT TEMPORARILY STORE REGISTER CONTENTS 

RD, -E 1 1 . 1 LOAD REGISTER WITH ONE 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


a 

OK 

RO.FPT 

DIVIDE BY VALUE DETER.' II- El > ABOVE AND 
T 1 i- l-t'KAB 1 l.v STORED. 


K 

ONE 

BRANCH TU ONE TO CONTINUE PROCESSING 

7 h k n 
'**■ 

LE 

rd,=e • 1 . • 

WISH ZEKCI-TH POWER OF ID WHICH IS ONE 

(IMF 

MFR 

KB , HI) 

MULTIPLY COEFFICIENT BY POWER OF TEN 


ST 6 

KB, PATH ( RF ) 

STORE RESULT IN OUTPUT ARRAY HATH 


1. A 

RE ,4( RF ) 

UPDATE OUTPUT INDEX 


LA 

.R v) 1 4 

UPDATE DISPLACEMENT INDEX FOR COE El 
LOOP 


I. 

RL,CT>P 

RESTORE VALUE OF LOOP INDEX TO RL 


BCT 

RL,Cf1EFl 

COMPLETE COE FI LOOP 


LA 

RG,3? ( RG ) 

UPDATE INDEX FOR COMPONENT ACCESSING 

"I- 

BCT 

RF, CHEF? 

COMPLETE CHEF 2 OUTER LOOP 

«iG 

DEBUG 



' 1 “ 

> 1 * 

<v> 

#,v 

MV I 

BUG4 , C 1 4 ' 

WE TRANSFER CONTENTS OF HATH TO OATU 
FOR RETURNING DATA TO CALLING PROGRAM 

* 

DROP PI NG 

BASE RC HERE PREVENTS AM ERRONEOUS USE OF THAT 

V 

REGISTER TO REFERENCE 

PATH. WHEN TRANSFER OF DATA IS 

. *1 % : . 
5*t ' 

completed 

, REGISTER WILL 

BE PICKED UP AGAIN 

:'c 

DROP 

RC 


* 

: mvc 

DAT U I 25 5 ) , P ATH 



. : MVC •■'••• 

D ATU + ? 55 ( 2 5b ) , 

D A T H + 255 


MVC 

DATU+51 0(255 ) , 

nATh+51 n 


MVC 

D A TU+ 7 ft 5 ( 2 55) . 

P ATH + 7 6 5 


MVC 

DATU+!0?0( 255 ) 

• DATH+ 1020 

: j’t 

MVC 

DATU+ l 275 ( 145 ) 

, D ATh+ 1 27 5 

" -»>* 

■'IT'-. 

USING 

HERE J+4094 ,RC 



reproducibility op the 

ORIGINAL PAGE IS POOR 
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SR 

RF,RF 

Zl-kl! REGISTER • j 


I.H ■; 

RF , DATH+ IB 

LfjAO REGISTER WITH NUMBER (IF BLOCKS 1 

0 F f) AT A P E R P H Y S 1 C A L RE C OKI) ; • f 


ST 

RF , NBl.OCK 

SAVE FDR FUTURE USE 1 



FOR 

FUTURE USE, WE WISH 

TO CALCULATE THE LENGTH DF 


USARI. 

E DATA IN EACH PHYSICAL BLOCK 

■ 

SR 

RK , RK 

ZERO RK 


L 

RE , HME AS 

LOAD RE W I TH NUMBER OF MEASUREMENT S 


LA 

RD , 2? 

SET RD EQUAL TO BEGINNING OF NO. 

❖ 



0 F S A M P L ES PER M E A S U K E M fc-N T D A T A 

CALCLM 

LH 

R|. , OATH ( RD ) 

LOAD RL WITH NUMBER OF SAMPLES FOR 



■ i- i- 

THIS MEASUREMENT 


LH 

RG , nATH+2 ( RD ) 

L 0 A D R G W I T H NO. B I T S P E R M E A S . 


SR 

R F , R F 

ZERO RF 


D 

RF, =F 1 8» 

DIVIDE NUMBER BY 8 


LR 

RJ,RG 

PUT RE SU LT, NO. BYTES , I N R J 


SR 

RF, RF 

ZERO RF 


LR 

RG,RL 

PUT NO, SAMPLES INTO RG 


HR 

R F , R J 

MULTIPLY BY NO. BYTES PER ME AS. 


' AR 

RK , RG 

ADD RESULT TO SUB-TOTAL IN RK 


LA 

RD, 32 ( RD ) 

UPDATE MEASUREMENT INDEX 


RCT 

RE iCALCLN 

; FINISH LOOP 


: A 

RK, =F»4» 

ADD FOUR BYTES FOR FRAME TIME 


SR 

• rj,rj w;V' ; v ; a-' 

ZERO RJ - 


M 

R J , N BLOCK 

MULTIPLY BY MO. BLOCKS PER PI-IYS. REC 


ST 

RK , OATLN 

STORE RESULT IN DATLN 


L 

• »v . 

1 , ADD AT 

RESTORE ADDRESS OF CALL DATA TO I 


L 

R ,1 , = F 1 1 f 

LOAD NCOND WITH A 1 FOR HOUSEKEEPING 

'1' 



DATA 


' E: 

RK ,4( 1 ) 



ST 

R J , 0( RK) 



L 

1 3,4 ( 13:) 

STANDARD RETURN PROCEDURE 


RETURN ( 14,12) ,T 



I 
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sbc own 

AMD MORE FREOUEMTLV USED ENTRY TO PROGRAM 

'r 

RD191 

SAVE 

( 14, ] ? ) . , v 

ENTRY SET-UP WITH LINKAGE 


BALK 

R I , 0 



USING 

HERE? , k J , KC 


here? 

1. 

RC ^ RASE AD? 

ALLOWS USE OF SECOND BASE REGISTER 


R 

AGAIN? 


RASFAD? 

DC 

A ( HERE ? + 4 09* ) 


AG. A IN? 

ST 

13 , SAVt+ A 



LA 

R J , SAVE 



ST 

R J , H ( 1 3 ) 



I.R 

13,RJ 



L 

DAT BASE *0 ( 1 ) 


s'c 

DEBUG 



.s’c 

MV I 

BUGS, C' 5' 



ST 

1 , ADjDAT 

SAVE VALUE OF ADDRESS OF ARGUMENTS 

,»*<■ ’ 
•»* n 



IN CALL SEOUENCE FOR FUTURE USE 


L 

R K , 4 ( 1 ) 

INSERT NCOND 


L 

R J , 0 ( R K ) 



ST 

R >j , WCOf JD 



L 

1 , D AT 

RESTORE ADDRESS OF INPUT DATA 

*r* 



FROM TAPE TO REG I STF.R 1 


L 

RK, BACK 

LOAD RK WITH INDICATOR OF PREVIOUS 

o* ■ 

'O 



ENTRY TO RD191 ' 


LTR 

R K , R K 



• B7. 

MORDAT 

IF ZERO, FIRST ENTRY 

? o ' ; - 

I N FUR MAT TOM .STORED IN 

DATH FROM HOUSEKEEPING RECORD IS USED 

vl* 

'i' 

jju 

IN ACCESSING REGULAR 

DATA RECORD 

si* 

-V 

K FEPHN 

L 

R K ♦ = F ’ 1 1 

INDICATE ENTRY TO THIS PORTION 

*v 

V '. 



OF PROGRAM 

.rlf'. ;. 

ST 

RK , BACK 

STORE FOR FUTURE USE 


REPRODDciBiLrry op tbb 

"““ml PMK arSm? 


* • debug 



MV I 

BUG^.C 'h • 



L 

RJ , ' iH|. (ICR 

LOAD REGISTER WITH NUMBER OF HI IlCKS 

Jjc 



OF DATA LEFT 


1.7 R 

R J , R J 



BP 

ST 1 LI.HV 

I F R OS J T T V E , IT ME A N S T HAT W E STILL 

: 'p 



HAVE DATA 

❖ 



IN THAT CASE, GO ON TO ST I LLHV 

Ml IK DAT 

G FT 

TPS] 91 

FETCH ADDRESS OF INPUT TAPE DATA 

. vu 

ST 

1 , DAT 

STORE VALUE IN DAT FOR FUTURE USE 


MV I 

BUG 7 , C 1 7 ' 



L 

RK , = F 1 2 1 

INDICATE ENTRY TO THIS PORTION OF 

V 



PROGRAM 


ST 

RKVBACK 

STORE FOR FUTURE USE 


SR 

RG , R G 

INITIALIZE RG INPUT DAT ARRAY 




A COE S S I N G I N D E X T 0 7 E RG 


ST ; 

RG. POSSAVE 

RE -I NI T I A LI 7 E POSSAVE 


SR 

RJ , R J 

ZERO REGISTER 


LH 

RJ , DATH+1 B 

RE-LOAD NUMBER OF BLOCKS PER DATA 


ST 

R J ♦MBLOCK 

S6:T( PHYSICAL RECORD) INTO NR LOCK 


R 

ST ft RING 

BRANCH TO STORING AREA FOR FURTHER 




PROCESSING 

ST I LLHV 

L 

RG, POSSAVE 

INIT I AL I ZE RG ( INDEX OF I NPUT DAT 

<T> 



ARRAY) 

* . : ; 

DEBUG 




MV I > 

HUGH ,C • B ' 


oz . 

V ■ 



TO L AS T VALUE US E 0 ( l_A S TEN TRY) 


L 

R D , D A T L N 

LOAD RD WITH LENGTH OF USABLE DATA 




RECORD 


SR 

R D , R G 

SUBTRACT VALUE OF RG 


BP 

STORING 

IF THERE IS STILL DATA, GO ON 


B 

MORDAT 

MEED MORE DATA IN DAT 

# p 

ST HR IMG 

::X 

1 » D AT 

LOAD I WITH ADDRESS OF TAPE DATA 


LR 

RJ, 1 



AH 

R J , RG 



MVC 

DATU(A) ,0(RJ ) 

INSERT FRAME TIME 


A -24 









LOflP FUR ACCESS IMG REGULAR J1ATA - THERE WILL HE 
A RIVEN NUMBER UF SAMPLES EUR EACH MEASURE?*' ENT - THIS IS 
FOUND IN THE HOUSEKEEPING RECORD 


L RJ, NMFAS 




LA 

R F , 4 

M" 


LA 

RB , 20 

i 

i 

a . . 
1 : 

UU- ■•.’•••' ■ ■ 

*'l- 

»** 

LA 

RL, 1244 

!. 

f : : , 


LA 

RG , 4 ( RG) 

1-4-0 

' s»* 

DATL P 

ST 

RB, DATL PIN 

1 ! 

: . ! . 

* 

LH 

RBYDATHI RB) 

i< ■ . 

jH .:• ••• " 

‘j\ ■ ! ■■ 

1 

■h ! . 

O- ' 

S 

. RB , = F 1 1 ' 

1 ; V : ■ ; 

'i- 

LR V : 

RE, R G 

y , . 

./ 

-i* ■. 

s 

RE , POSSAVE 


, 5 *' 

CR 

R E * RB 

i . 


BME 

ERROR 

j • . i 


L 

RB .UATLP IN 


DEBUG 


LOAD ! OOP INDEX WITH THE NUMBER OF 
MEASUREMENTS 

INITIALIZE OUTPUT DATU INDEX WITH 4 
INITIALIZE INDEX UF OATH ARRAY TO 
BEGINNING OF AREA OF MEASUREMENT 
INFORMATION 

INITIALIZE INDEX IN OATH ARRAY FDR 
SLOPE AND I INTERCEPT ACCESS l NG 

ADD FOUR TO BY-PASS FRAME TIME - 
(RECORDED ABOVE) 

STORE VALUE IN DATL P I N ( D ATLP INDEX) 
LOAD RB WITH EXPECTED BYTE START 
ADDRESS OF DATA 
WE W I S H TO CHECK T HAT W E A R E 
PROCEEDING PROPERLY 

DECREASE BY ONE AS NUMBER IS ACTUAL 
BYTE, NOT DISPLACEMENT TO BYTE. 

WE WISH POSITION: WTTH REFERENCE 
TO BEGINNING OF BLOCK (NOT WITH 
RESPECT TO BEGINNING OF PHYSICAL 
RECORD - THIS IS WHAT HOUSTON 
RECORDED IN THE HOUSEKEEPING RECORD. 


RESTORE VALUE OF INDEX TO RB 




A -2 5 


’of tub 

; - * IS POOR 




MV I 
LH 




LTH 

B 7 
SR 
I.H 

D 

LR 


IUJG A , C ' A ' 

RK , DATIT+2 ( KB ) 


KK.WK 
W A S 7 h P. f 1 

rd,rd 

RE , D ATH+4 ( KB) 

RD, = F ' 8 ‘ 

RD,Rfc 


S R 0 , = F ' 2 ' 

RZ ■■■■.: TWO BYTE 

LR RD.RE 

S RD,=F ' 1 ' 

RZ ON EBYTE 


;P:' HORBYTE 

V ■ 

'■■•si* 

ON E BYTE SR RB vRTV 


DEBUG 

MV I BUGRiC'B' 

T C R B , 0 ( 1 » RG ) 

FLOAT RB » RB 
LE R D , DAT H + 4 ( R K ) 

LE RD , DAT H+4 ( KL ) 


HER R R , R D 

AE R B » D A T H ( R L ) 

STE RB » DftTii ( RE ) 

LA RG, 1 ( RG) 

LA RE, 4 (RE) 

BCT RK, ON EBYTE 

LA HI.. ♦ 8 ( RL ) 


INITIALIZE LOUR I MO EX TO 
NUMBER OF SAMPLES BLR BLOCK 
HE THE Gl VEM MEASUREMENT 
RE MUST TEST THAT VALUE 
IS NOT ZERO. IE SO, 

BRANCH TO NAS ZERO 

ZERO R J FOR CON IMG DIVISION 

LOAD THE NUMBER OF HITS FOR THIS ' 

MEASUREMENT INTO RK 

DIVIDE BY 8 TO GET NUMBER OF BYTES 
RO N I L L CONT A I M T HE NUMBER OF BYT E S 
FOR THI S MEASUREMENT . . 

NOTE- HOUSTON JSC STATES THAT BITS 
PER M EASUR EM ENT W I Li. BE A MU LT I P I. E 
OF 8, (AND FURTHER THAT IT WILL 
PROBABLY BE 8 OR 16 ONLY) 

IF THERE A R E 2 BYT E S P E R M EASURE M E N T 
PROCESS DATA AT fWOBYTE 
R E L 0 A 0 R D . W IT H NO . BYT E S 

IF THERE IS ONE' BYTE PER MEASUREMENT 
PROCESS DATA AT ON EBYTE 
ERROR - MORE THAN TWO BYTES - CHECK 
WITH HOUSTON - 

INITIALIZE R EGISTER TO ZERO 


ACCESS I N T EG E R PA R A H ET E R F R 0 M D A T A 
CHANGE I T ( INTEGER) TO FLOATING POINI 

LOAD FLOATING POINT REGISTER RD 
WITH SLOPE, ( INDEXED BY FIXED POINT 
REGISTER RL) 

KUL TIPL Y P A RAM ETER B Y S L 0 PE 

ADD THE INTERCEPT 

STORE IN DATA ARRAY 

UPOATF OAT INDEX 

UPDATE DATU INDEX 

CONTINUE SAMPLE LOOP 

UPDATE INDEX IN HOUSEKEEPING WHERE 



' ■ 


.r/SHEJH' 


INTERCEPT AMI) SLOPE ARE ACCESSED 


TWO BYT 


1. 

RB , D ATI R I M 

RE ST. UK F VALUE OF RB FROM DA TURIN 

LA 

RB, SR ( K H ) 

URD AT 1: INDEX USED FOR OVERALL HOUSE 
K F: FR I FOR E A OH M I- A S UR HI-; ENT 

BCT 

'< J , DAT LB 

COMPLETE MEASUREMENT.. LOOP 

B 

REST 

BRANCH TO AREA H'HFRF YOU PRF RARE 
TO RETURN /. : N 

I.H 

R K , 0 ( I , R G ) 

ACCESS THE DATA PARAMETER 

1. T R 

KB , RB 


HR 

OK RL 

IF VALUE SENSED IS POSIT l VE, 
TH PR E I S NO D IF F I COL T Y 

N 

RB, =X ' OOOOFFFF ' 

PROBLEM OCCURS WHEN VALUE 


ON TARE HAD LEADING R I T 1 
-HOUSTON DID NOT MEAN IT, HERE, 
AS A N E DA T I V E - IB M T K E A T S 1 T 
AS NEGATIVE IN LOAD, SO WE MUST 


OK PL 

sU 

BC 

0,0 

ELIMINATE IBM'S ONES! 

*V ' 

■v 

o>. 

DEBUG 




MV I 

BIJGC , C 1 C 1 



FLOAT 

RB, RB 

CHANGE INTEGER INPUT TO FLOATING 
POINT 

•i, 

V 

LE 

RD , OATH+4 ( RL ) 

LOAD RD WITH SLOPE 

LOADED. INTO FLOATING REGISTER RD 

USING INDEX IN FIXED REGISTER RL 


HER 

R B , RD 

MULTIPLY BY SLOPE 


AE 

RB , OATH ( RL ) 

ADD THE INTERCEPT 


STE 

RB , DATU ( RF1 

R ST OR 6 IN ARRAY DATU 


LA 

R G , 2 ( R G ) 

UPDATE THE DAT INDEX 


LA 

R F , 4 ( R F ) 

UPDATE THE OUTPUT DATLJ INDEX 


BCT 

RK » TUOBYTE 

CONTINUE SAMPLE LOOP 

WASZFRO 

LA 

RLrB(RL) 

UPDATE SLOPE- INTERCEPT INDEX IN 

Sit- ; . • -r ■ 



. HOUSEKEEPING ARRAY ■ : 0 


L 

RB , DATLP IN 

RESTORE. VALUE OF RB FROM DATLP IN 

V 

LA 

R B , 3 2 ( R B ) 

U P DATE I NO F X USE D FOR 0 V FR AL L HO IJ S E 
.KEEP ING FOR EACH M FAS U REME NT 


BCT 

RJ, DATLP 

COMPLETE MEASUREMENT LOOP 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 


A-27 


r-'VP (IF MEASURE H [; N T S 


PREPARE TO RETURN 



REST 



TV ' . 

FRROR2 


L 

RF, wb| OCK 

S 

RF, = F ' I ' 

ST 

RF, NBI.OCK 

UR 

RO,KG 

ST 

RD, TEMPS 7. 

S 

R IT, POSSAVE 

LH 

ke,dath+ib 

CR 

’ RD , RE 

BNE 

ERROR? 

L 

RJ, =F ' ? ' 

L 

1 , ADD AT 

L 

R K , 4 ( 1 ) 

ST 

R J ,0 ( R K ) 

ST 

RG, POSSAVE 


B 

GOBACK 

L 

R J , = F ' 4 • 


L : I t ADO AT 

: 

L RK,4( } ) 

ST RJ ,0(RK ) 

■ GDHACK1 

■ ■ • . 

ERROR L I f AODAT V. 

I. RJ,=F'4 ' 


FETCH NUMBER OF BLOCKS YFT TO HE 
PROCESSED 

SUBTRACT ONE (ONE WAS JUST USED!) 
STORE BACK IN MB I TICK FOR FUTURE USE 
LOAD CURRENT VALUE OF RG INTO RD 
FOR DEBUGGING, STOKE VALUE IN TEMPS? 
SUBTRACT PREVIOUS VALUE 


C OM PARE W I TH P R ON I S E D B 1. DC K SIZE \ : 

IF NOT EH UAL t THERE IS AN ERROR SOME- | ■ Y-i 

WHERE - CHECK I 1 

LOAD NCOND WITH 2 TO INDICATE REGULAR fuu 
DATA { Y 

RESTORE ADDRESS OF INPUT CALLING Si 

SEOUENCE ARGUMENTS TO 1 f :Y 

. ' ■ . ■■ 1 

STORE CURRENT VALUE OF KG INTO f * 

POSSAVE IF WHOLE PHYSICAL RECORD ; 

WAS NOT USED* THEN NEXT TIME YOU WILL 
ACCESS DATA STARTING AT THAT POSITION j, Y 

COMPLETE LINKAGE AT GOB AC K | -Yj 

INDICATES ERROR CONDITION - 
IF THIS IS FIRST ENTRY TO 

RD191 AND NCOND INDICATES PREVIOUS ? 

DATA WAS NOT HOUSEKEEPING, THIS IS i * 

CONSIDERED AN ERROR \ 

ALSO, AM ERROR IS THOUGHT TO » J 

EXIST IF CURRENT VALUE OF TAPE | A 

DATA INDEX AND ITS PREVIOUS VALUE 

DO NOT DIFFER BY THE PROMISED 

BLOCKS I 7. E ; -L 

RESTORE ADDRESS OF INPUT ARGUMENT 

LIST TO 1 : Y U 


COMPLETE LINKAGE AT GORACK1 

RESTORE ADDRESS OF INPUT ARGUMENT 
LIST TO 1 


11 



oo 







■l ' ' 

RK ♦ 4 ( 1 ) 



ST 

RU, Of UK ) 

INSERT ERROR I MO I CAT OR INTO 




NCO NO 




: ERROR HER I- CAUSED h'Y I MEfHJAL I T Y 




BE I WHEN RG AND EXPECTED VALUE Or KG) 

y* ' . 

R 

gdbacki 


MITR BVTF 

1. 

R.I,=F'4» 

VARIABLE HAS MORE THAN ? BYTES 1.01 10 




ERROR 


I. 

1 , Ann at 

RESTORE ADDRESS OF ARGUMENTS IN CALL 


L 

RK * *(1 ) 



ST 

R .!,()( RK ) 



R 

GOBACK1 

COMB L E TE LI NKAGE AT GO RACK I 

FlLFMf) 

L 

RJt=F'3' 

END OF FILE - FINISHED 


L 

1 , ADD AT 

RESTO R E A 0 DR E S S OF a R GO M E N T S IN CAL 1 


L 

RK, 4( 1 ) 


;jc :• 

ST 

RJ, 0( RK ) 


V 

on RACK 

RC 

0,0 ; 

NO OPERATION - LIKE CONTINUE IN 

'%»*■ ■ 



FORTRAN - NORMAL EXIT 

%*> 

-I* '• • 



NO PROBLEMS WERE ENCOUNTERED 


o, 

+v~ 

. jV 

REINITTALI7E BUGS 



MV I 

BUGS » C 'O' 



MV I 

BUG6 , C ' 0 ' 



MV I 

BIJG7,C ' O' 



MV I 

BIJGb.C 'O' 



MV I 

BUG9,C 'O' 

9 . ' 


MV I 

BUG: Aye o • 



MV I 

BUGB « C ' 0 ' 


*Ai 

'1' 

MV I 

HUGO, C' O' 


’ 

G0BACK1 

L 

13,4(13) 

RETURN PROCEDURE - EXIT THRU 

•»!*• .• 



HERE INDICATES PROBLEM - DO 




NOT WISH TO RE- INITIALIZE ' 

;]c 



•BUGS' SO CAM FIND THlrlR 




VALUES IN DUMP. 


RETURN 

( 14,12) , T 

R E STORE RE G I S T E KS AN D RETURN 


REPRODUCIBILITY OF THE 
bRIGINAL PAGE IS POOR 


.‘JsStiu&iitt.; 




* 

- 1 K I T I A L I Z 1- V A K 1 A R L b S A NO S T 0I< AG E HEP. f: 

* I.TliKG PLACES ALL LIT FRAI.S I I t: K b 

LTfIKfV 


#|V 

FUR 

DEBUG 

US 1: 

%)# 




RUG] 

nr. 

C 

a* 

RUG? 

DC 

. c ' 

0 • 

RIIGR 

DC 

c • o 1 

RUGA 

DC 

c 

0 » 

HUGE 

DC 

c 

0 * 

RUG ft 

DC 

c 

0 1 

RUG 7 

DC 

c 

0 1 

RIIGR 

DC 

c 

0 1 

BUG 9 

DC 

c 

0 * 

RUGA 

DC 

c 

O' 

RIIGR 

DC 

c 

0 ' 

RIlGC 

DC 

c 

0 1 




o# 

- INPUT TAPE DESCRIPTION- 

•’I'f 

TPS 19 1 DC B OSORG-PS * (4ACR P= < GL ) , RDNAME-TP/S 191, SODAD- F J LEND, D EVD=T A 




ADD AT 

DC 

VAR I A RL ES - 

F 'O' 

TEMPORARY LOCATION FOR INPUT 


V 

jl, 

RACK 

DC 

F ' 0 ' 

CONTENTS OF 1 - ADDRESS OF CALL 
SEGUE MCE 

I N D I C A T OR S H 00 I N G W H ET H E R R 0191 

HAS 

C 1 Mil 

DC 

F '0 ' 

BEEN USED ( 7 ERO, NO-ONE , YES ) 
TEMPORARY STORAGE LOCATION FOR 


DAT 

DC 

F ' 0 ' 

INDEX REGISTER VALUE 

MILL CONTAIN ADDRESS IN CORE OF 

TAPE 

DATIN' 

DC 

F ' ? A ft 4 ' 

DATA . . . ' 

LENGTH OF USABLE INPUT DAT 'ARRAY' 

3*C 

* 

DAT.LP IN 

DC 

F ' 0 ' 

PROP. TAPE - ACTUAL PHYSICAL BI..0 
LENGTH IS ? 520 BUT THIS INCLUDE 
FILL ZEROS 

TEMPORARY • ST OR AGE POSITION FOR 

CK 

S'-v; 

INDEX 


A-30 


c 


%»* ■* 
F P 1 

nr. 

? F 1 o • 

01- DAT A R KAY POINTING TO BEGINNING 
OF A k |-A OF (•; F ASUKFf.F N '1 1 N F ( 1 k H A T 1 0 M 

TEMPORARY STORAGE AREA USED BY MACRO 

g\/ai. 

nr 

F ' 0 1 

FLOAT 

T FOP OR ARY STORAGE A i< FA 

L j-Mf, TM 

nr 

F ' 1 44 i) ' 

FOR CONTENTS OF KEG. RG 
LENGTH (IF OUTPUT ARRAY IN BYTES 

MB IDCK 

DC 

F • - 1 » 

INI T lAI. I 7 AT ION OF NUN BEK OF BLOCKS 

ncond 

nr 

. F ' 0 • 

LEFT FOR 'PROCESSING' - INDICATES 
NONE WERE DONE.' AS YET- FIRST ENTRY 
TEMPORARY STORAGE FUR NCOND - CALL 

MB FAS 

nr 

F ' 0 ' 

SEHUENCE VARIABLE FURNISHED BY THIS 
SUBROUTINE 

HILL CONTAIN NUMBER OE MEASUREMENTS 

MTYPF 

nr 

F ' n ' 

FOUND ON TAPE - SUPPLIED ON TAPE 
TEMPORARY STORAGE FOR INPUT N TYPE 

v ■ 

pnSSAvi- 

nc 

F ' 0 ' 

VAR 1 ABLE WH I CH 1 NO I CATES 1 NO E PENDENT 
VARIABLE DATA PREFERENCE 
INITIALIZATION OF VALUE OF INDEX TO 

fC ■ 

SAVE 

5*C 

DC 

1 BF ' O' 

ACCESS DAT 

SAVE AREA. FOR LINKAGE 

■TEMPS Z ; 

nr 

F « 0 ' 

TEMPORARY STORAGE FOR VALUE OF 

■'i- 

OATH 

ns 

STORAGE-; 

360F 

RG FOR DEBUGGING PURPOSES 

OUTPUT ARRAY OF HOUSEKEEPING DATA - 

OATli 

NL. 

V- 

ns 

3 60 F 

NEEDED FOR PROCESSING OF REGULAR DATA 
OUTPUT ARRAY OF REGULAR DATA 

// FXFC 
//* 

FMn 

L T MKfiO 
Ill'll T 6 

.REGION. GU=? OOK 
IS THE nEKUG AMD G 

ENERAI. MESSAGE UNIT ON PRINTER 

/ /* 

LIMIT 9 

CONTAINS THE LISTING OF THE TAPE CONTENTS 

//* 

TPS] 91 

IS THE INPUT DATA 

TAPE 



//Gfl.FTOAFOOl nr) SYSQUT=A,nCB=( KECFM=VBA» LRECL=137, BLKS I ZE=7?65 ) , 

// SPACF = (CYL.(7.3) ) 

/ / GO . FT 09F00 ] nn SYSOIIT = A, DCB=( KECFN=VBA , LKECL = 137t BLKS IZE = 7265 ) , 

// $ P A C E = ( C Y L » { 15, l 5) ) 

//RO.TPS191 nn UN[T=^4no-9,[)CB=(RECFM=UthLKSI7E = ?5?n) t LABEL = ( ,BLP ) , 
// VI 1L = S FR = L 000 1 . 

//nri.sYsununp on sysout-a 
//go. da tab nn * 



» tub 

'WOfNAL PAGE IS POOS 



///><•• ;l 
/ / * I t" 
// »* X 

/ / s r ■ 1 1 !• 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 

c 

c 


l il«"< ( FIKjoarboao , T , ,0O?‘i0? ) , *1 n H « ?-' SO L. r V F I. = 1 

TSDATI CREATE NEW S-I91 1 ApF S JSC SUPPl I I 1 1 TApf-S 


C FO«f TRAUH, PAk: “• = * 0 P T = ? 

cp.sysk no * 


t: non i r. , 1. 1 sr.» i is map , xk e f • , r no i «tn«? i . ok 


THIS P R D Ok A H WAS V.’K I TTE* V BY /•'. RACK OF C.S.C. FOB TASK 0 9 ? ( SKY I.. A H ) 
UNDER CONTRACT -VAS-S - UWlM DECEMBER , 1973 . IT UTILIZES 
SURROUT IMF MWT101 TO TAKE THE TWO PAIRED TA»F.S SENT 
BY HOUSTON! JSC ) AS WELL AS DATA DERIVED FROM 1 NTERFDLAT I ON , 

( SUBROUTINE /FW.PTNjnF BORES I GMT CAMERA I) AT A VALUES 
F XT K A C T F 0 FRO- HOCKS AND Pfl IM TI -MR ADOLFS , ( EXT* ACTED 


FROM FILMS), TO CREATE A NEW 
I B M A C C E SS J M L E TAP [': f.) F S - 1 9 1 


MORE STANDARD I 7 FO 
VALUES. 


on 


ISnTPT and ISOTZN ARE LOGICAL' VARIABLES WHICH 
INDICATE WHETHER DATA EXISTS FOR POINTING 

Ancles a mo zenith ancles respectively. 

IF TRUE, IT HOES EXIST - IF FALSE. 

IT OOFS MOT. HOUSTON JSC C A MM LIT 

SUPPLY OATA FOR ALL CASES. SO 

DR. CURRAN ( CSFC I HAS REOllESTED THAT IN THAT 

CASE. TO SET THE AM CL F OR ANGLES TO ZERO. 

IN EITHER CASE. (DATA OR NO DATA), THE DATA 

DELIMITERS OF ( -9) AND (-9) RESPECTIVELY 

HUS T ST ILL BE INSERTED ON TH 5 DAT A 5 UNI T ( S E E BE 1.0 W ) 


SEN. OF ERRSET. TELLS BEGINNING 
WHICH SUBROUTINE APPLIES 

NUMBER 


NO], IN CALL 
NUMBER TO 
NO? IN CALL SEC. OF ERRSET. TELLS 
BEFORE TERM THAT ION SHOULD OCCUR 
MU 3 IM CALL SEO. OF ERRSET. TELLS 
MESSAGES SYSTEM SHOULD LIST 
NO 4 IN CALL SEW. OF ERRSET, TELLS 
TR AGE FOR EACH ERR OR HE S RACE 
NO 5 IN CALL SEN. OF ERRSET, TELLS 
NUMBER ERROR TO WHICH SUBROUTINE 


SYSTEM 


OF ERRORS ALLOWED 


NUMBER OF ERROR 


SYSTEM TO GIVE 


FI I Cl I FS T I H C ( S Y S T E M NO, ) 


NCOMD IS AN 


INDICATOR SUPPLIED BY THE SUBROUTINE NWT191 
=1 MEANS END OF FILE 


REPRODUCIBILITY OF Thifi 

ORIGINAL PAGE IS POOR 


B-2 


xijmts,T:mshxsmz 


«'•? M F A ! : S ERROR EMGUIL !T HF-ED 
NOTE - WE INITIAL 17 E IV TO 7FKO AS A DI-nUG M i) 


RFAI.W8 TAPE 

LOGICAL I SHIFT. r.Sl'T7 r " 

COMMON /TAPE'/ TARE . 

COMMON/ VALUES/ IT I f’PT ( 3 Vno ) , PT INF ( 4,500 ) , lTir /.N(3, 500 ) , 
IZENVL.t 4H0 ) ,NDPT,MUZF , 1S0TPT, I SDT7.V 
0 IMEAi.Sin.lV I T P T ( 3*500 ) , I T7*!< 3, 500 ) , 7T ( 500 ) 

DATA NH1, NOP, 003,004, 005/^07, ?0, 20, 2,999/ 

DATA NClivn/O/ 

external myerr 


FORMATS 


] O00 FORMAT (AB) 

1100 FORMAT (15) 

12 00 F OR K AT ( I 3 , 1 X , 1 2 , IX , 3 12 , 3 X , F 2 . 0 , 3X , F 2 . 0 , 2X , F 2 . 0 , 4X , F2 . 0 ) 
1300 FORMAT ( 3 I 2 , F4. 3 , 1 8 X , F4 . 1 , 2 1 X , F4 . 1 , 5X , I 3 , 2X, 12 ) 

2000 FORMAT ( 1 HO , » END OF FI LE ENCOUNTER ED OM C ARO ' , 

1 ' INPUT ON UNIT 5 - EXPECTED DELIMITER OF - 9 ! ' , 

2' POSSIBLE ERROR - ABEND WITH DUMP ' / ) 

2100 FORMAT (1 HO, ' ENO OF FILE Eh COUNTERED ON TAPE') 

2200 FORMAT (1 WO, 'ERROR IN NWT191') 

C 

C THIS ROUT 1 OE , ERRSET , WILL GIVE DUMP IF ERRORS ( IHC ) 

C ARE ENCOUNTERED 

C V 

CALL E R R S E T ( M 01 , N 02 , M 0 3 , N 0 4 , M Y E R R , NO 5 ) 


TAPE UPON WHICH DATA W l L L BE PLACED 1 S READ 


READ T 5, 1000 ) TAPE 


INPUT POINTING A MOLE INFORMATION IS READ 


NUPT=0 

R E A 0 ( 5 ,1 100 ) I SOT PT 


REPRODUCIBILITY OF TRIP 

original page rn twn 




o n o o o n o o o o o o rv.o 


10 r;riMT T •'•'"F 
MnPT = ’• ni'T+ 1 

Kt-AiHH, 1 POO , END*.) ?(>) ( I T 1 'Pit 1 K . ‘ ,! DP T ) ♦ IK-1 •? ) » 

1 ( T TPT ( TK.K'npI) , TK-1 , 3) . ( PT Ii'KK IK,MlPT ) , J K= l , A ) 

1 F ( m‘PT(l. NOP T ) . OH. -9 ) GO TO ? 0 
(if i Til 1 n 
SO C f ' T T f i 1 1 

Ml )PT = M(iPT - }. 

MOW THF ZENITH ANGLE INFORMATION IS READ 
MflZF = 0 

RE AD (5,1 100) I SOTZN 
30 CONTINUF 
ivif)ZF = M()ZE + l 

READ ( 5 . 1300 ♦ FMD= 50) ( IT ZN ( I K , MOZ E ) , IK = 1,3), ZT(NOZE) , 
IF LEV, ZENVL (OOZE ) , ( I T I UZN ( I K , NQZ E ) , IK=] ,? ) 

I F ( IT 7.N ( 1 , NOZ E ) . EH . -9 ) Of) TO AO 
GO TO 30 
AO CONTINUE 

MOZF=MnZ E-l 

50 COMTINUF ' • 

MflW ALL VALUES MUST HE TRANSFORMED INTO FORM 
NEEDED FOR SUBROUTINE ZEMPTN 


MOTE - TRANSFORMATIONS AREtNEOESSAR I LY, NOT PERFORMED 
IP NO DATA EX I STS FOR THAT VAR I ABLE, (VALUE OF INPUT 
LOGICAL VARIABLES vISDTPT AND ISDTZN, ARE CHECKED 
FIRST — Ass/v: 

IF (.NOT. ISDTPT) GO TO 70 
DO 60 L T = 1 , K OPT 
I H = I T 0 T ( 1 , LT ) 

I M = I T P T ( ? ♦ L T ) 

I S= I TPT ( 3 » L T ) 

I T 5 = T S + T M * 60+1 H* 3 6 0 0 
I T I MPT ( 3 , 1.T )=ITS*1DOOO 
60 CONTINUE T : 

70- CONTINUE 

IF (.MOT. ISDTZN) GO TO 90 

• on ho l T = 1,-vnzE A*- ? ■ s';.; 



B-4 


o o o 




tMsiT7p.{ 1 ,U ) 

n - 1 t / ? ' ( ^ , i . t ) 
lS=n7UR,LT) 

I T s- 1 S + l Or AO I- T H* T £,00 

Sm~ 7T ( i.T moono . 

J SM = SM 

I T 1 !•« /V ( 0 , L T ) = T T S* ] 000O + i SM 
00 Clio T 10! IE 
90 CONTINUE 


■ SUBROUTINE HP.T 191 IS MJU CALLED 

IT WTLL CREATE THE HEW TAPE FROM THE TWO INPUT TAPES 
CALL RUT) 91 ( DCOM) ) 
go to ( jno.noi ,ncond 
100 COOT I NOE 

WRITE (A, pi 00 ) 


TAPE IS UNLOADED THRU CALL TO WRITE! 


CALL WRIT EE 
RETURN 

110 CONTINUE 


ERROR ENCOUNTERED IN READING DF TAPE - INDICATED 
BY VALUE OF NCDHD - IBM DUMP SECURED BY CALL TO 
ABEND 


WRITE (A, 2 pOO ) 
CALL ABEND 
120 CONTINUE 


ERROR ENCOUNTERED IN READING POINTING ANGLE DATA - 
NO DATA DELIMITER, ( -9) « FOUND BEFORE END OF FILE 
ENCOUNTERED ON UN IT 5 - SECURE IBM DUMP THRU 
CALL TO ABEND 


WRITE! A, 20 00) 
CALL ABEND 


RETURN 

END 
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S 1 1 B K H 1 1 T ] W E C r ) M V ( YV , M , D I ■ . J U,l„ ) 

c 

,C THTS SlIB^ru.'T T HAS ME I IT E M tVY F..’ 1 1. AS I Of- CSC Fill! 

C TASK 09? ,'SK YL«B . UNDER CONTRACT MAS-H-11999 IM 

C Nfn/RS HER , l<->73. IT CONVEY TS MONTH ART) DAY TO 

C C A L EM)A Y DAY , ( T AK I MG 1 S' TO CONS I IH-w/YT I ON TH.fi 

C YEAR - WHETHER IT RE A I. ft A P YEAR , THAT IS). 

C 

IMTFGFR TOTAL, YY,DD 

n i F irms t m i 7 ) ,tw i? ) , on ( id 

DATA N/4 4 , 68 , 7? , 76 , «0 , 84 , 68, 97 , 94 , 00, 04 , 08 / 
n A T A M / ?■ t , 5 9 , 9 0 , 1 7 0 , 1 S 1 , L 8 ] , 7 1 2 » 2 4 3 , 773 , 3 0 4 ,334,345/ 
C — — SETTING THY TO 0 
D(i in T=i,n. 

Kill ( I ) =0 

]0 CONTINUE 

C CHECKS FOR LEAP YEAR 

DO 70 1=1,1? • . 

IF( YY.FO. NM ) ) GO TO 60 
70 CONTINUE 
T OT A L = 0 

C -CHECKS FOR JAN. 

I F ( MM. fin . 01 ) GO TO 50 

C CHECKS FOR MONTH 

on 30 1-1 ,12 

IF ( MM.FO. 1 ) GO TO 40 

TOTAL -M ( I ) 

30 COMT JNUF . 

40 JIJL=TOT &L+OD 
RETURN 

V'.sso: JUL=nn ; 

: RFTURN s' 

60 CONTINUE 
T'.T.' TOTAL-O 

C ADDS ONE DAY FOR LEAP YEAR ' 

I F ( o f • . F n . D GO TO 4 0 . .. .’ 

DO 70 !=?,ll ' To 
mo i i ) =;• ( i ) + i ■ . 

I F ( MM . EO . I ) GO TO 40 '04.. ■ 

TOT AL=MO ( I ) . 

70 CONTINUE ■ 

GO Tf l 4 0 
ROD 

SUBROOT I ME FRAT T M ( I Y , I T IME ) 

C 
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C - THIS SUBROUTINE »• AS UR ITTEN BY P.KILASI OF CSC FOR TASK OH? 
C S KYI. AH, UNITE* CONTRACT WAS-B-- 1 1 999 1 N OFC. • 73. 

C 

c 

C. IT Om'VFRTS FRAME THT IN I'M ITS tip (10) -4 SEC. 

0 I Win HHI Jk f M[M, AfMf) SEC. . - — — 

C ' ' 

C . 

0 Y = E R A E TIKE 

C 

C . - 

c - ’ / : ; ; , ■ : v 

INTEGER*?. IT IN F(4) 

REAL* 8 X, Y ,T ,.A,BVC 

c . ■ ' . . . y 

C TO GET THE NUMBER OF HOURS - ‘ ' 

C 

Y = I Y ■ 

x=Y/inono. . 

A=X/3600 . 

I A = A . . Y, - 

I T T ME ( J ) = I A ' V 

C 

C TO GET THE HUE HER OF HIM. - 

r~ . 

' *> ‘ . ■ . :■ • ' 

■ T = X-( IA*3600 ) : ^Y'Y --Y- ' 

B-T/ 60 - Y A;.. 

' I R=« • ;■ Y- 

IT I HE ( ? ) =IB -'.r 

C ■ Y ; ' 

C— TO GFT THE NUMBER OF SEC. - 

C :'y- . V'-'-Y YY-.; Y-Y.-. Yy CY--. ;■ YY YvC 'y.yy' Y' ; YVY 

C=T- ( IB *AO ) Y' 

C = C+ . 5 

ic=r. 

T T I M E ( 3 ) - T C ' 

ITT WE ( A ) =00 

RETURN 

FND 

SUBROUTINE KYF.RK 
C 

C THIS SUBROUTINE* HR ITTEfM BY O.MACK OF CSC FOR TASK 

C 09? , SKYI.AB , UNDER CONTRACT N AS-5-1 1 999 , I NOEC. ' 73 , I S 

C UT T Lf TED BY A CALL TP SYSTEM SUBROUTINE ERR SET. THAT 

C ROUTINE PREVENTS SYSTEM ERROR TO TERMINATE PROGRAM, 


; 



j! 

ii 


I 

M 

■ ! 


k 
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r. BUT J'ASSfcS COM I RMI T 0 MY ERR • THL' ! Yt.KR CALLS Aul-MD 

C Til SECURE A Bi;/p . | AM V SYSTEM ERRORS 'OH A* ■ 1 T T F R M I A' A T F 

C 1 Til A DU-P, SO TRACING, IF N E F 0 FD , ■'AHlI.D- HE 

C. DIFFICULT ■•'11 Him I THIS. 


C 

CALL ABEND 

RETURN 

FMD 

SUBROUTINE I'.R I T IT ( DATUS < I HATH? ) 

C 

C 

C 

C THIS SUHKOUT I ME HAS WRITTEN «Y M.MACK OF CSC FOR 

C TASK 092 , SKYI.AR,HNOER CONTRACT N A S - 5 - 1. 1 9 9 9 I N 

C DEC, '73. IT TS UTILIZED IN PRODUCTION OF NEW 

C GSFC VFRSIOMS OF JSC S-I91 DATA TAPES. IT 

C UTILIZES FTTH TO COUNT OUTPUT TAPES, HR I TP 

C 'MWT19] ' $-191 OUTPUT DATA ON THOSE TAPES, 

C AND , ALSO* LISTS THAT DAT A ON UN I T 9 ( PR INTER 

C BY JCL DEFINITION), FOR SCIENTISTS' PERUSAL. 

c \ 

c ■ v ; ■ ■ ■ : 

C IT HAS TWO ENTRIES: 

c Y Y c>,:; Y, 

C WRIT IT - WITH CALL SEOIJENCEI DATUS, IITATU?) WHERE 

C DATUS IS THE REAL *4 ARRAY OF DATA VALUES AMD 

C Y ; " IDATU2 IS THE IMTE GEK*2 ARRAY OF THOSE SAN E 

C VALUES NEEDED FOR PRINTER OUTPUT. 

C HR I TEE - HAS MO ARGIJF ENTS - IT MERELY UNLOADS 

c -Y^YYY Y'"Y-- v the output tape . ; 

:c ; ; ■ T: " , , T > : ' ■ ; . : . . YY?YV 

c l • ' ■ : l mm,-.,. ■ h . -v.;--..: 

u ONE COMMON IS PRESENT, TAPEN, WITH ELFMENT TAPE, 

C (RFAL*H VOLUME AMD SERIAL NUMBER OF OUTPUT 

C TAPE IN EBCDIC, NEEDED BY FT 10 FOR MOUNT I N GW 

C AND UNLOADING. 

C 

c 

c 

IMTFGE R * 2 1 D A T U ?. ( B 9 6 ) 

LOGICAL HERE/* TRUE./ 

COMMON /TAPEN/TAPF 
0 1 Op hi SI ON DATUS ( 44 B ) , DAT WKT ( 8 ) 

C 

C FORMAT STATEMENTS 





c 

7 0 on f- 1 « R W Aff.iHl t34 X , ' M ft V! SPEC I kt; W ' , 5 X , 'IT N F = ' ,. 3 I 3 , 1 X , 3 [ 3 
1HX, 1 I, AT 1 TlL^r = L,Pf+. 7 , 7X , ' LUNG I TUD:: = 1 , FA. 7/, J.X, 

7 ' A L T I Tlli'f: = ' , FA . 1 , ?X , ' Y AW= ' FA . l , 7X , ' Pi i CH = ' , ■ 

3FA. 1 ,7X , 1 R D I. L — ' , FA. 1 , 2X, ' SUN /.!.:'!! TH A MG I. E = • , 

4FA.1 , 7X, + MOTNTTUG ANGI.FS=» Mfh. 7/ ) 

7100 FI IRMAT ( ] HO , yX ,4 ( • LAVELENG TH 1 , 7 X , 

1 • KAO I AfiCE VALUE? ,3X)/. 10X,4( J.X, 1 ( MI CHUNS ) ' , 

77 X , 1.YX ) / ) 

7700 FORMAT ( 1 H ,4X, 4 { F 1 0 .5 .IX, £ 13.3, 3X ) ) 

C 

n ‘ V.' •' • . 

C. IF FTRST ENTRY, hOUMT TAPE 

C 

I F ( .wij. HERE) GO TO 10 . ' . ... 

CALL TINT ( 3, 17 , TAPE , 1 ) 

HERE=. FALSE. 

C . i , : 

. 10 CONTINUE 

C 

C USING FT I'.Q, WRITE VALUES ON NEW TAPE 

C 

CALL F HR I T F ( OATIJS, 12, 1797) 

C 

C NOW, LIST ON OUTPUT UNIT 9 FOR SCIENTISTS PERUSAL 

C 

WRITE! 9 ,2000 ) < IOATUZI IX) ,1X=1,A) , 

1 ( OATUS ( I X ) , T X =4 , 14 ) 

WRITE! 9,7] 00) ■. " 

C.tv'L-: V'4,:/.Lv . : T ; L 

C MOTE - IH IS THE INDEX TO DATUS FOR WAVELENGTH 

C ‘ VALUES, (WITH INCREMENTING BELOW, START 

C INDEX IS ACTUALLY 15) 

C 17 IS THE INDEX TO DATtJS FOR RADIANCE 

C . VALUES , ( WITH INCREMENTING BELOW, START 

C INDEX IS ACTUALLY 232) 

C 

I B = 1 1 
I 7 = 7 7 R 

DO . 30 LR-1 ,54 

J H= IB + 4 
17 = ! 7+4 
I A 1=1 B - 1 
I 21 = 17-1 





r; THIS LtKH' ENABLES 4 P/UkS OF V.'aVE L-tr H AND RADIANCE 

C VALUES TU B PK | *• Ti n Ilf! A L 1 Mr* 

C 

c 

fill ?n LK = 1,.<.? 

IK 1 = I.K + 1 
H'I-TkI + 1 
1/1=1 Z T+1 

dat’*mt< lk )=d«*jus( im ) 
n'Afv*WT(LK) )=!)/> Tits ( 17 3. ) 

?J) C< ‘NTT -HIE ' : ■ ■ ■ 

w R I T ;T( n , ? ? 0 0 ) 1 1 A T l ,• K T 
30 CMwTT MUE 
C ■' 

C 

C AS THE .viimkFK nr- values is dpt a MULTIPLE OF 4, THIS 

C LAST LINE WILL NOT HAVE THE FULL FOUR FAIRS, HUT ONLY 

C THE ONE FAIR LISTED HELD!??. 

C ■ ; ■ : ' ' . ' ' ’ . Y 

C 

DAT'-«RT( 1 ) = D A T U S ( 2 3 1 ) 'Y .Y. ■"' ;/ 

DATHRT ( ? ) =OATUS ( 44B ) 

MR -I TE ( 9 , 2 ?00 ) ( DATWRT ( IX) , 1X=1 , ?) 

RETURN \ Y ' 

C Y Y : 

c : : : - . - . :■ ,4 . : 

ENTRY HR I TEE 

C . Y . ■ :Y.-, ■ . V Y.Y Y:.Y .... ... ■ i./ Yv ' .. ■■ Y -,Y, v ,. 

C Y v ■ ' . : 4 ■ ■ . ■ : ■ ■ . . . 

C THIS ENTRY, AS NOTED ABOVE, MERELY UNLOADS THE OUTPUT 

C TAPE. YY' ■ : Y: 

GY: ■~.'YY'Y'.: \Y'-- Y ? ■ : . : Y" Y ; 'Y- ''Y- Y ■'L^./Yv-T Y ■ 

c 

CALL UNLOAD ( 1? ) 

RETURN 

END 

SUBROUTINE 7. ENPTMI CALOAY , YEAR , FRTM , ZENITH , FT AN ) 

G . YY Y; ■ Y : Yy : Y v . ' . ; - ; a. 

C THIS SUBROUTINE WAS WRITTEN BY F.LILASI OF C.S.G. FOR TASK 09? ( SKYLAH 

C TM DECEMBER, 1973. FT WILL TAKE THE ARGUMENTS SENT BY SUBROUTINE 
C 'NHT191L AND PERFORM AN 1 NT ERPOIAT I ON BASED ON TINE, USING 
G DATA IN ARRAYS El 111. ID IN I HI? NAME COMMON 'VALUES'. 

C 

C TSDTPT AND ISDT70 ARE LOGICAL VARIABLES WHICH INDICATE WHETHER 
C DATA EXISTS FOR ZENITH ANGLES AND POINTING ANGLES RESPECTIVELY. 


I 
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c It- Tkllf- , IT DOFS EXIST, IF FAI.SI:. IT OOFS MOT* DR. Cl IK KAN (GSPO 

0 MAS P I* nil {; S T ED THAT I" THAT CASE, Tf SET THE ANGLE OH ANGLES TO /FRO. 

f. . 

LOGICAL T SDTi'T, t S r, T7H* 1 1 DT 7N 
I W T I ; G I- k C A L 0 A V , YL ; A K , F K T F ♦ TO IF, T 0 I F 1 

C.OHKOM/ VALUFS/ 1 T I POT ( 3. ♦.500 ) * PTIUGI 4, 500 ) , ] T 1 070 ( 3 , 500 ) , 7. K j\! V I ( 500) , 
1 W 0 P T , M 0 7 F , T S f v T p T , I $ 0 T 7 N 
D 1 Mffi'iS T i W'j l J TAi* l ( 4) 

EQUIVALENCE. ( ITIM7NI 1, 1) , TT7CF ) ,'( I T I MZN ( Z , 1) , I T7 YF ) , ( IT IM7N ( 3 *.l ) ? 

3 IT7FF ) 

' DATA I.T-P IT/AOnOOO/ 

DATA l i nt ZMZ. TRUE . / 

C " ■ ' ' ' 

T F ( . HOT . J S OT 7. N ) GO TO 1«5 
J = 3 

C IS THF INPUT YEAR EARLIER THAM FIRST YEAR OF DATA IM C OFF ON DATA ? 
IF(YFAR.LT . I T Z Y F ) 0 A I. L E K K OR ( 1 , Y F A R * C A L DA Y , F R TM , fi 10 0 ) 

C ' • 

C IS THF TO POT YEAR LATER 'THAN FIRST YEAR OF DATA IN IT1MZN COMMON ? 

tF( YEAR.GT. ITZYFIGO TO JO 
C 

C THE INPUT AND GOFF ON YEARS ARE EQUAL . IS INPUT C A I DAY EARI IER 
C THAN DATA IN COY MOM ? . 

I F ( C A L D A Y . L T . T T 7.CF ) C A L L E R R 0 R ( ? , Y E A R , C A L D A Y , F R T M , f, 190) 

c . . . ... : ; ■ ; ; : ; 

C THF INPUT AND COMMON YEARS ARE EQUAL. IS INPUT CAI DAY LATER THAN 
C DATA IM ITIMZN ; ? . 

I F( CAI.DAY .GT . IT7.CF ) GO TO 10 

C : ■ : ' ' 

C INPUT AMD COMMON YEARS ARE EQUAL AND CAL DAY ARE EQUAL. IS INPUT FRTM 
C EARLIER THAN DATA IN T TIM 70 COMMON ? 

- \ I FT F RTM. LT . 1 T 7 F F ) GO T O 30 
C v / ; z : ' 7 ■ ■ ■ ' " v ’ o T' : T: : ■ : : - M 

C INPUT AND COMMON YEARS ARE EQUAL AND DAYS ARE EQUAL. IS FRTM 
C EQUAL TO ITIMZN COMMON DATA ? 

TFII-RTF.EO. 1T7FF)G0 TO 40 
C IS FRTM LATER THAN FIRST VALUE ? 

I F ( F R T M . G T . I T7.F F ) G 0 T 0 3 0 
C 

C CHECK value OF COUNTER IN COMMON DATA 

10 I F( N07F .LT . 1 . OR . i\'0?F .GT. 500 ) CALL ERROR ! 7 ) : / 

C THIS LOOP CHECKS ONLY THOSE VALUES WITH YFAR OR CAI. DAY GREATER THAN 
C ITIH7N CnF."OM DATA, LOOK I NO FOR INPUT YEAR AMD CALM AY THAT ARE THE 
C SAME IN ITIMZN DATA. THEN CHECKS INPUT FRTM AGAINST ITIMZN (TIIF). 
C 
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noon o o o oo non o o o 


. nil ;>n f = i ♦f'f'ZH 
.!= T 

ff-( YI:/h<.(;1 . 1 T F • 7 M ( ? . I ) ) C-\) TO HO 
T F (C/0 DAY.GT. I r f .•• /.!( 1,1) )Gn Til pn 
H-( f-HT---.LT. m T’(T, I ) OO TO 100 

[ £ ( l-MT . Rt> . IT T 0 7 0 ( H , I ) ) CO TO 40 

TE< I . Ho. mo 7(- T. ; f,n 

1 1- ( YGftK-.LT . 1 T 1 1 7 - ; ( ? , r + L ) .Ok.CAl DAY . l.T. I T I M 7 fo ( 1 * I +1 ) ) Of) TO Mi 

! F ( l-P.T- . CiT . ITIHZUCSt I ) . AGD . FRTK . LT. ITTMZM3, I-l-l ) ) 00 TO HO 

?(i COMT T Of I f. 

C 

C l £ mop MAS COMPLETFI), INPUT yeah oh calday was greater thaw 
C ITIM/H COMMON DATA. NOW CHECK INPUT TO SEE '-TIIOI WAS 

GRFATFH * ( YFAU f-H GALDAY). 

I Y - Y FAR - ] T 1 « ■/ f>; ( ^ , K ! ■ 1 1- ) 

I F ( I Y . GF . I ) C A L L FRi- ( !R ( 5 , YE AR , 0 A LD AY , FR TM , G 1 90 ) 

T W s f. A l DA Y - 1 T I i i 70(1. n 7 F ) 

TF( I N .OF.] ) CAL L E H « OH ( 4 , Y F A R , C A L D AY , F H T iT t ft 190) 

CALL ERROR ( H , YE AR . C ALHAY , FRTM , ft 1 9 1 ) ) 

INPUT AND COMMON YEARS A 00 CALOAYS ARE THE SAME, AND INPUT FRTM WAS 
FAR L l FR THAN FIRST JTIMZN DATA (TIME). NOW CM F C K TO' SEE IF DIFFERENCE 
IS CHEATER THAO UK £ M I MUTE . (OR. -CURRAN HAS RE CHESTED THAT TEST IN CAS 
INPUT. FRTM TS EARI.TFR THAO FIRST I " I M 7. M DATA (-TIME ) .’ -CHECK TO SEE IF 
niFFEREHCF IF GREATER THAN ONE MINUTE, IF SO SET ZENITH ECU A L 
TO ZERO. . 

30 I 0 T F F - IT7.FF-FRTM 

IF ( I D I F F . CT . L T M IT ) C A L I. ERROR ( 1 0 » Y EAR , CAL DAY » FRTM, ft 190) 

T D I F = T T I H 7 f 1 ( 3 . . I + 1 ) — I T T M 7 M ( 3 , J ) 

IF( TDIF.i- 0 . 0 ) C A 1.1. F RR 0 R ( 3 , Y l- A R , C A L DAY , F R T M , ft 1 y 0 ) 

ZEN I t H= Z EN VI. (-') + (( ZFNVL ( J+ 1 ) - ZF N VI. ( .) ) ) / TOT F ) * ( FRTH- I T I N’Z.N ( 3 , J ) ) 

CA |.L PTING1 ( CALDAY , YEAR , FRTIi , P TAM ) 

RETURN 

INPUT YEAR AND CALDAY A«S THE SAME AS ITTM7.N DATA. INPUT FRTM ALSO 
E DUALS IT I?-‘ 7 u DATA (TIDE) . SO. SET ZENITH ANCLE TO SAME VALUE AS 
ITIM7N DATA. 

40 1 EMI TH-ZEMVl ( J ) 

CALI PTU'Gl ( CAI HAY. YPAK. FRTM.PTAN) 

RETURN ■' " ^ --Y; //■■■/. -C/ n : V : > ;Y 

C INPUT YEAR AND CALDAY ARE THE S A u E AS IT IM7N DATA. INPUT FRTM WAS 
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(•1 R E A T r R T ! I A r •' I.AST IT I P 7 N I) A T A ( T I K !£ ) . 

IF DIFFERENCE GR FAT I: K THAN OH?. MIMllTI-* 

‘SO TDI F= ] T I M?N( 3 * ’D7C ) -I T J M7.?v ( 3 .HOZE-1 ) 

T n T F 1 = ?* RT M — t T Til l W ( 3 , N OZ F ) 

T F ( TO I F 1 , G T . |. I HIT) CALL ERROR ( 10 , YEAR CALDAY , FRTfH B 1 9 0 ) 

on in 120 
C 

C INPUT YEAR A HI) C A 1.0 AY ARE THE SAME AS FIRST 1TIM7N DATA, RUT INPUT 
C FRTM IS HR EATER THEN FIRST IT lr / >! DATA ( TIME ) « THE SEC UNO TIME 

C IN THE I T I M 7 N ARRAY HAS ChANGFO. (THAT IS THE YEAR IS GREATER 

C THAN THE INPUT: YEAR vf IK THE CAI.OaY IS GREATER THAN THE INPUT CALDAY) 
C CHECK TO SEE IF THE YEAR HAS CHANGED AND WHETHER THE 

C I T I M 7 N DATA (THE SECOND ONE) IS THE FIRST DAY OF TliF R'EV YEAR. 

C Z ■: ' 

60 T N = I T TO 7 N ( I , J ) - C A 1.0 A Y 

I F( IM.GE. 1 )CALI. ERROR ( A , YEAH , CALDAY » FRTM* S 190 ) 

• I Y= I T J * v 7. N ( 2 * J ) - Y E AR 

IF ( I Y . RE . I )CALL ERROR ( 5 , YEAR , CALDAY , FRTM, £ 190 ) 

I Y- I T I M 7 N { 2 , J + 1 ) - 1 T I M 2 L ( 2, J ) 

IF( TY.FO.O) GO TO 90 

I F ( I Y , NF . 1 ) CALL ERROR (5 , YEAR , CALDAY, FRTM, C 1 90) 

I DAY = 3 AS 

) YF AR= T T I M7.H ( 2 , .1 ) + J ROD 
1 F ( MOD ( ( I YEAR ) » 4 ) « f-u . 0 ) 10 A Y = 3F6 

I F ( I T IM7 N ( 1 , J ) . HE • I DA Y ) C A I. L ERROR ( 6, Y EAR , 0 A L DAY, F R T M , SI 9 0 ) 

70 TO J. F1-PRTE’+ ( B64000000-1 T IMZNt 3, J ) ) 

IF(TDIFl.GT.LTMT) C A LI. F R R OR ( J 0 , Y E A R , C A L D AY , F R T M , S 1 9 0 ) 

TD I F= T T I M7N ( 3 » J + 1 ) ~ IT I M7.N ( 3 » J ) 

I F ( TDIF . FO.O ) CALL ERROR ( 3 , YE AR , CALDAY , FRTM , S3. 90) 

ZEN I TH=7ENVL ( J ) + ( ( 7. EM VI. ( J+ 1 ) -ZENVL ( J ) ) /TDI F )*TDI FI 
CALL PT TN&r { CAL DA Y, YEAR , FRTM ♦ PT AM) 
y. RETURN 

c . L ' - ; 

C THE INPUT YEAR AND CALDAY ARE THE SAME AS THE FIRST COMMON DATA VALUE , 
C AND GREATER THAN FIRST ITIMZN DATA ( TIME ) AND LESS THAN SECOND 
C ITIMZN DATA (TIME). I NT E R POL A TER TO FIND THE NEAREST ZENITH ANGLE 
C BETWEEN THE TWO ITIMZN DATA VALUES. 

C 

BO TO I F = j j I MZN( 3 , J + l ) - IT J H7N ( 3 » J ) 

?FNITH=ZEMVL (J ) + ( ( ZENVL ( J+ 1 ) -ZENVL ( J ) ) /TDIF )*( FRTM- 1 T I M2 N ( 3 , J ) ) 
CALL PT I NG1 ( CALDAY, YEAR , FRTM , PTAN) 

RFTURN . 

C 

C CHECK TO SEE IE CALDAY CHANGED BY ONE DAY. ALSO CHECK 
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C ll ; TW T I -> f= f ) T f* F- r- H I- f f c I : IS I. i: S S TllA-i owl: N: ] MUTE BETWEEN THE T I MI'S 
C T HI 1"I) PAYS, 

C 

90 i*«* IT I p/.i( 1 , j.+ 1 ) — i r i v 7»v ( I . j ) 

T F ( I K . S.'S n ) PALI. ffRUi)R ( 8 , YE >\R V GA L PAY , FH’I M, K ]9() ) 
i F ( f a! .FT . 1. ) GAEL ERROR ( 4 , YEAR , CALDAY , f-K TP , i\ 1 4 0 ) 

0(1 TCP YO 


INPUT YEAR AMO 0 A 1,0 AY A U F T HI: SAME AS ITIHZU DATA, OUT INPUT l-HTM . 
I S I. F S S T li A ; s I T in r«i 0 A T A ( T i 0 F ) . CHECK T H E T I M h 

■ HP HIP E - - 1 T IP! tup: I I 1 E/N DATA TO SFE WHETHER Tr-r YEAH 
HAS OH AMGFD . 

100 IMS ITIHZU( 1 , J )-CALDAY 

I P ( I M . GE .1 ) CALL If I' R HP ( 4 , YEAH , C A L 0 AY, FKTM, K190 ) 

TY=ITID7M(2, J)~YEAR 

IF ( I Y.OP. 1 ) C A 1. L l: P K OR ( 5 , YE A R , C A LDAY , FK T M , fi 1 VO ) 

I Y = I T T MZN ( ? , J ) — I T I HZN ( J-l ) 

T F ( I Y.FH.O) GO TO 130 

IF ( I Y.NE . 1 ) 0 A I. L ERROR ( _S , YE AR, CALDAY , FRTf'S 0190) 

J 0 A Y - 3 6 3 

1 Y If A R = I T 1 0 7. M ( ? , J - 1 ) . + 1 9 0 0 
If- ( Mftn ( ( I YEAR >,4),EO.O) lDAY=36n 

IF (IT I ( 1 , J-l ) .WE . I DAY ) CALL ERROR ( 9, YEAR , CALDAY , FRTM, Gl.VO). 

110 TDI F 1 = F R T f -i- ( 864000 0 0 0 - 1 T I M Z M ( 3 , J ) ) 

IF( T0IF1.GT. LIMIT )CALL ERROR ( 10 GY EAR , CALOAY , FKTM , £ 1 90 ) 

TD I F-TT I M7N (3 , J ) - 1 T i MZM ( 3 » J-T ) 

T F ( I Dir » EO. 0 ) CALL ERROR < 3 * YEAR , CALOAY , FRTM, F, 190 ) 

1?0 7. EM I l H=7EMVL (J-l ) -M ( ZENVL ( J ) -7. EMV L ( J- 1 ) ) / TDI F ) *TD I FI 
CALL PTJNG1 ( CALDAY, YEAR, FRTM, PTAM ) 

RETURN ..... 

INPUT CALDAY AND YEAR ARE THE SAME AS I TI HZ M DATA, BUT INPUT 

l-RTM IS LESS THAN IT1M7M DATA (TIME). CHECK THE TIME 

BEFORE IT IH THE 1TIMZN DATA SEE WHETHER THE CALDAY 
MAS CHARGED. 


130 I N = I T I U7N ( 1 . J ) - T T T MZM ( 1 , J-] ) 

I F ( TPS FO.O 1CAI.L ERROR ( 8 , YEAR , CAL DA Y , FRTM, F. 190 ) 

I F ( I N.GT . 1 ) CALL ERROR (4, YEAR , CALDAY , FRTM , K190 ) 

<;n in no 

c *• 

C IF ERROR MESSAGE IS CALLED, A MESSAGE WILL .HE PRINTED AMD 

C 7FMTH ANGLE HILL RE SET TO ZERO. (THIS ACTION IS TAKEN 
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C HF THi- TIM" CHECK H All ORES' 0-V YEAR , CA.UTAY. A?XO/OK FkTM 

C '/M-M- f Hi-K I T FAT l„'“p BY Hi J (4 THU PARLY OR TON |,AT F . 

C S 1 ), * • K II U T I s" F. • • R P. ! ’ R V'H I I l- s MESSAGE AMD RETURNS Til STAY E P F. V T 140 
C -JH.-lif Zf-BTIl? IS SL-T TO /TOO. 

0 v - . 

)«*> I F { I I I’T 7 N ) C.A LL K R H Ok ( 11. , Y I: A R , C A 1. D A Y » F R T M , F 1 V 0 ) 

140 71-iMJ TH = (i, 

I IDTZN= .FALSE, 

CAI.L PTINGI ( OALOAYt Yf-AK,FKTi;,BTAN ) 

RETURN 

END 

C 

SUBROUT T *•' fi PTINGI ( C A I. D A Y , YEAH, FR TM, PTAlU) 


THIS SUB-ROUTT HE NAS WRITTEN BY F . NILAS I OF C.5.C. FOR TASK 092(.SKYLAh 
,TN DECEMBER , 1973 . IT WILL TAKE THE ARGUMENTS SEMI BY SUBROUTINE 
' 7FMPTM' A NR PERFORM AN I NT ERPOLATI Uiv BASED UN TIME, USING 
DATA IN ARRAYS FOUND IN THE NAME COMMON 1 VALUES ' . 

TSDTPT AND I SOT 7 N ARE LOGICAL VARIABLES WHICH INDICATE WHETHER 
DATA EXISTS FOR ZENITH ANGLES AND POINTING ANGLES RESPECTIVELY. 

IF TRUE, IT DOFS EXIST, IF FALSE, IT DOES NOT . DR. CUKREN (GSFC.) 

HAS HE Oil ESI ED THAT IN THAT CASE, TO SET THE ANGLE OR ANGLES TO ZERO. 

LOGICAL ISDTPT, TSDTZN, IIDTPT 
INTEGER CALOAY, YEAR. FRTH,TDIF, TDI FI 

CO Ft NON /VALUES/ ITIHPT ( 3,500) ,PTI N G<4» 500 ) , I T IK Z N ( 3 , 5 0 0 ) , Z E N V L ( 5 0 0 ) 
1 ,i''nPT.NI17E. ISDTPT, ISDTZN 
D T MENS I UN PTAN(4) - 

FOU IV A LEND F. ( I T I HPT ( 1 , 1 ) , I TP C F ) , ( I T I HP T ( 2, 1 ) , IT P YF ) , ( I T I M P T ( 3 , 1 ) , 
1ITPFF ) 

DATA LTMIT/HnoOOO/ 

DATA IIDTPT/. TRUE./ 

c : . : : : ■■ o;---,-, 0 ;: / . o.r ■ 

I F ( .MOT. ISDTPT) GO TO- 1B5 
. ' M-l 

C I S THE I«pi IT YEAR EARLIER THAN FIRST YEAR OF DATA I N COMMON DAT A ? 

I F ( YEAR.LT . I T PYF ) C ALL ERROR ( 1 , YEAR , CALDAY, FRTis, F 140) 

C 

C IS THE INPUT YEAR GREATER THAN FIRST' YEAR OF DATA IN COMMON DATA ? 

T F ( YEAR.GT. f TPYF )G0 TO 10 


ftlSPRODUCBILlTY OF THE 
ORIGINAL PAGE IS POOR 


oo o oo oo.no o o no 


C [ IMG 1 •'•■PUT AMfl Y : AM S AR!- PUUM, , IS 1 , PUT CM.! AY E A k L I EK 

r. T HA* DATA I ■ cor- in.J ? 

I Ft CAUVAY.LT . I C EOF) CALL ORRORI ?: , YEAR ,€ ALU AY , IV 1 , fi I 40 ) 

C 

C TH p TOPI IT AND CONFUN YEARS ARE EOUAL. IS INPUT CAL! AY LATER THAW 
c HAT A liv IT HPT ? 

I F ( C A L f) A Y . 'ST . T T PCF ) 00 T ! J ] 0 
C . 

C TA'PIIT AMY nor. MOM YEARS ARE '-DUAL A WO CAL DAY ARE .RITUAL » IS INPUT Fk T i : 
C FAkLIFP THU PAT A IN IT! TC COMMON ? 

T F( rPT f . I.T . I TPEF )GN T f I 3(5 
C 

c T A* PUT AND Cn«MOM YEARS Akr EOUAL AMD DAYS ARE E*)U A L • IS PRTM 
C FOUAI. TO ITTC FT CONDO'-' DATA ? 

IF ( FRTk. 1:0. ITPFF ) GO TO 50 

IS FRILL CATER THAW FIRST VALUE ? 

I F ( FRTN.GT . ITPFF ) GO Til 10 ' 

CHFCK VALUE OF CUUWTER IN COMMON DATA 
1 0 IF ( WOPT . L T . I . OR * NOPT . GT . 500 ) CALL ERROR ( 7 , YEAR ) 

THIS 'LOOP CHECKS ONLY THOSE VALUES W r TH YEARS OK CALDAY GREATER THAW 
I T I HPT GOKMUH DATA. LOOKING FOR INPUT YE AR AMD CALDAY THAT ARE THE 
SAGE I W ITINPT DATA. THEN CHECKS INPUT FRTM AGAINST T T I MPT (TINE). 

DO Pt) 1 = 1 * NOPT 
J=I 

IF t YEAR .GT . ITIOPT (2 , I ) ) GO TO 70 ' 

I F (CAL DA Y . GT .IT I MPT ( 1, I ) ) GO TO ?0 
J F t FRTH.LT . ITINPT (3*1 ) Iftn, TO 140 
TFCFRTN.EO. TTIFPT(3* I ) )G() TO 5D 
1 FIT . EO.NOPT )G0 TO 70 

I F ( YEAR . LT . I T I HPT ( ? , 1 + l ) . OR . CALDAY . LT . I TI MPT ( 1,1 + 1) )GC) TO HO 
I F ( FRTH.GT •IT 1 0 PT ( 3, I ) . AND . FR TK . LT . I TI KPT (3,1 + 1) ) GO TO 1 10 

?.n CONTINUE 

IF LOOP HAS COMPLETED, INPUT YEAR OR CALDAY WAS GREATER THAN 
ITINPT COMMON DATA. NOW CHECK IMMJT TO SEE WHICH WAS ..A 
GREATER . ( YEAR OR CALDAY). 

T Y = YEAR - I T T i ! P T ( ? . ! ; 0 P T ) 

I F ( IY.GE . 1 ) C ALL ERKOR( 5, YEAR, CALDAY, FRTM, S1V0) 

T N=CALOAY-l T I OPT ( 1 , NOPT ) 

I F ( 1N.GE. 1 ) C A L I. FP kOR ( 4 , YF AR , CALDAY , FR TO » ft 1 40 ) 
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• C A L I. E i 1 K I iR ( H , Y A k , C A L M A Y * F i> 7 ‘ , f, 1 ~ 0 ) 


t '* PUT Alvin COMM O’. Year's AM.V CaLOAYS ARE TUI- SAi-ihr A NO INPUT ERTM M«S 
EARIJHR TM A M POST I T I !■/.!•' DATA (TIFF), tv i J t < CHECK TO 5Ff-.fr IF MIFF E K i; N G i : 
IF GREATER THAN 0 -E A I Ml ITF . ( Ml; . .CUR K AM MAS FI FA 1 1 It: ST EU THAT TEST 1 1\; 0 /' 
F'OIT P R TO IS E-API.T Fk THAI'! FIRST IT I. MPT DATA (TIFF). CHECK TO SEP IF 
MI (-F1-RPMGIT IF GRPATFR THAN Tlr’E M I MUTE. IF SO SPT ‘-’Ml NT I MG F MUA I 
TH l ERt 1 . 

30 IDIFF-ITfFF-FRTM 

IF ( J MI PI- .GJ.l.T HIT ) CALL FRF MR ( 10, YEAR , CAI.DAY , EKTM,T. 1 90 ) 

TH I F= I T 1 MPT ( 3 , J + 1 ) - IT IF FT (3 , J ) 

TF( TOTE . FM.tl ) G ALL ERROR (3 , YE AR , G A LD AY , Fk Tfi , SI 90 ) 
on 40 I_ = ] , 4 

FT A .v ( I, ) = p T 1 MG ( I , J ) + ( ( PT I MG ( L , J+l ) -P T I MG ( L , J ) ) / T M 1 F ) * 

] ( FR T •'!- T T I MPT ( 3 « J ) ) 

40 CniMTTfJMr 
RETURN 

INPUT YEAR AMD CAI.DAY ARE THE SAME AS IT IMP T DATA. INPUT. ERTM ALSU 
F GOALS I T I MPT DATA (TINE). SO, SET POINTING ANGLES TO SAME VALUE AS 
ITr-PT DATA . 

SO DO AO L=l,4 

PTAW ( L ) =PT I MG ( L , J ) 

60 CONTINUE G 

RETURN 

INPUT YEAR AMD CAI.DAY ARE THE SAME AS IT I MPT DATA. INPUT ERTM : WAS 
GREATER THAN LAST ITIMPT DATA (TIME). CHECK TO SEE IF DIFFERENCE 
GREATER THAN ONE MINUTE . 


70 TD I E = I T I MPT ( 3 , NOPT ) - ITI Np T ( 3 , MOP T- 1 ) 

TDir-1 =^RTM-TTrMPT( 3,F!MPT ) 

IF ( T 0 T F . GT ,L T M T T ) C ALL ERROR ( 10 , YEAR ,CALOAY, ERTM, TIRO) 

GO TO 1 60 
C ; 

C INPUT YEAR AND CAI.DAY ARE THE SAME AS FIRST ITIMPT DATA, HUT INPUT 
C ERTM IS GREATER THEM FIRST ITIMPT DATA (TINE). THE SECOND TIME 
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0 I-' TI'P ITT '■■' P T ARRAY HAS Cl l ANGLO . (THAT IS THE YEAR IS GREATER 
C Tham TmE T ( ?PIIT YEAR. Or Til E CALDAY IS GREATER THAN ThR INPUT CAI.DAY 
C r.Mi-CK T" SEE IF THi- YE AR HAS Cl I ANUP 1) AND WHETHER THE 
C ITIMPT OAT A (THE SEC HR 0 H- | ) IS THE F l K ST HAY OF THE FEE YEAS. 

C 

BO I i" = T T I ' -FT ( l , J )-CA|.nAY 

il-( IY.CF, 1 ICAI.L ERROR ( 4 » YE AR , C A 1.0 AY , FK T M, K 190 ) 

J Y=ITICT ( ? , J )-YE AR 

■ I F ( I Y.GE . 1 )CAI„I_ FKHORf 5,Y6AR,CALDAY,FRTMtfU9il) 

I Y = T T I *’ PT( 2 . J + l ) —ITT r ; HT ( 2, J ) 
ie( iY.Fo.n)Go to 130 

TM TY.RF.l ) 041. |. ERROR ( ‘3 « YEAR * CAL DAY » FRTW • 19() ) 

T n A Y = 3 A A 

I YEAR =1 T I MPT ( 2 » J ) + 1 900 
T F { Enn ( T T I MPT ( ? i J ) t A),co,fy) I DAY = 36 6 

I P ( T T I KPT ( 1,J) .•£. I 0 A Y ) C A ! . L ER ROK ( 6 , Y EAR , C A L D A Y , FRTM * S 1 90 ) 

go TO I F 1 = FR TK+ ( *64000000- IT I MPT ( ?. , J ) ) 

IFHTDIF V.GT.LTMTTICALL E K RPR ( 10, YEAR VCALDAY, FKTM , A 1 90 ) 

T P I P = T T 1 MP T ( 3 , J + 1 ) - IT IP P T ( 3, J ) 

IF ( TO T F . 50 . 0 ) CALL ERROR ( 3 , YEAR , CA I.OAY • FK TM , (',190) 
no inn l=1,4 

PTAW ( I. ) = PT J MG ( I. , J ) + ( ( PT I NG( I. , J+l ) -P T I NG ( L , J ) ) /TP I F ) * TO IF 1 
100 CONTINUE :N4 4:_.;,4 

RETURN : ' ‘ 

C ■ . . 

C THE INPUT YEAR AND CALDAY ARE THE SAME AS THE FIRST COMMON DATA VALUE 

C A Ain GREATER THAN FIRST ITIMPT DATA (TIME) AND LESS THAN SECOND . 

C ITIMPT DATA (TIME). J NT ERROL ATE R TO FIND THE NEAREST POINTING ANGLE 
C BETWEEN THF TWO ITIMPT DATA VALUES. 

C " : - 

110 TO I F= ITIMPT ( 3 , J + l ) -I T IMPT ( 3 , J ) 

T F ( T n I F . F 0 . 0 ) 0 A L L FRROR ( 3 , YE AR , CA L D A Y , FR T M, SI 90 ) 
no 1 20 L = I , 4 

PTAN( L ) = PT I MG ( L « J ) + ( ( PTIi\iG( L. J+l ) -PTING ( L , J ) ) / T 0 1 F ) * 

1 ( FRTM- 1 1 l KPT (3,0) ) 

120 CONTINUE 

RETURN 

C '■ ' ' 

C CHECK TO SEE IF CAI.PAY CHANGED BY ONE DAY. ALSO CHECK 
C IF THE TIKE DIFFERENCE IS LESS TH AM ONE MINUTE BE THE EM THE TIMES DM 
C IMF Two DAYS. 

0 


130 I R' = I T I M P T ( 1 , J + l ) - 1 T I M P T ( l , J ) 


i r- ( t . * ■ > . o ) r. ' u. hrrm-- { « , v i\ < , cm hay , t h ,r. j ‘<o ) 

1 1- ( I ! * 1 ) C /‘ LI. LkRiG ( A i Y !• AH , (‘ A I. M A Y , | « 1 M , K 1 <■>;)) 
GO To wo ‘ 


C 

C .! IV HI IT Y L A u Avn CAI.OAY ARE T' ir r SAME AS TT1F7N DATA* HUT INPUT l-RTV 

C IS LbSSTwAT ITII'PT DATA ( T 1 ' F ) . CHECK THF T I ME BF PDF E 17 IN THE 

C nif-.pl : ? A T ' TO SEE TWHh THE YEAR HAS CHANGED. 

C ; 

1AIJ l o = T J T ' oT ( J , J ) -f.nl D A Y 

I F ( M.OH . ] ) C A !, | IH- KfJR ( A, Yi* AR, CAI.0AY, FKTH* S 1.90 } 

T.Y- ITT PTf ? , J ) -VI: AR 

I F ( I Y . OF . ]. ) CALL F K K HR ( 3 , Y i: AR , CA LDA Y , FR T f- ,C 1 9<> ) 

T Y - T T 1 - PT ( ? » J ) — r T T ■ i FT ( ? , J-] ) 

T F ( I Y . F ‘ . 0 ) an TO ] SO 

IFM Y.NF . 1 ) CALI. ERROR (5 , YEAR , CALDAY » FR TM , Cl 90 ) 

I DA Y= 'MS 5 

J YF AA = I T I OPT ( 2 » J- J. ) + 1900 
IF (GOD (I TTf-'PT ( P , J-l ) ,4) . ffo. Q ) IDAY = 3A6 

IF ( ITT Ai FT ( 1 .j-l- ) .MB. 10AY ) CALL ERROR ( 9 , YF AR , C AI.OA Y , FRTM, Cl 90 ) 
1 *50 TO T F 1 =FMT. V !+ ( 8*4000000-1 T I MP T ( 3 * J ) ) 

T F ( TOT FI . GT . I. J n: TTICALL ERROR ( 10 , YEAR, CALDAY , FRTM* 61.9.0 ) 


TO I F = I T TNPT ( 3 » J ) - 1 T If-i p t ( 3 , J-l ) 

IF ( Toil'. E0.01CALL ERROR! 3, YEAR , CALDAY , FRTM ♦ Cl 90 ) 

1 AO 00.170 I. =1,4 

PTAh<( L ) -PTI NG ( I. , .1-1 ) + ( ( PT IMG ( L , J ) - P T I NO ( L , J-l ) ) /TO! F I# TO. I FI 
17 0 COM T INI IF 
RE TUP A' 

C 

C INPUT CALDAY AMD YEAR ARE THE SAME AS I TIMPT DATA , RUT INPUT 
C FRTM IS LESS THAN f TIGHT DATA (TIME). CHECK THE T I HE 
C BEFORE IT IN THE IT I MPT DATA SEE WHETHER THE CALDAY 
C HAS CHAMGFD . 

C 

1.8 0 I fvl= T T T i 'PT ( 1 , J ) -ITT MPT ( 1. , J-l ) 

I F ( I M . F 0 . 0 ) CA I.L ERR OR ( H .YEAR, C A LO AY , FR TM ,0190) 

I E ( JN.fr, l ) CALL ERROR! 4, YEAR , CALDAY , FRTM, fl 19 0 ) 

GO TO 1 30 
C 

C I E ERROR MESSAGE IS CALLED, A MESSAGE !-'IIJ. RE PRINTED AMD 
C POINTING ANGLE MILL RE SET TO 7 FRO. (THIS ACTION IS TAKEN 
C FOR ANY OF THE TIME CHECK ' FAILURES ' OM YEAR, CALDAY AND/OR FRTM 
C Mil FT HER IT FAILED BY RE I MG TDD EARLY OR TOO LATE. 


TlEP ROD UCIBIL J T y OF THF 
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C SlHU-nuriinH ItH.Hflp. WRITES Mt- S S -ni;f= ANn RETURNS TO STA f HKnHT '190 
C I-'M; k'f: PUT f-JT I NG ANGLES fS S» : T Til 

IR*> 1 l : ( I TUTPT ) CM. i. Lki'l'Rf l? , YE AK ,C AI.DAY , FkTM, L190) 

190 DO ?m 1 = 1,4 

J I D T 0 T = . FALSI- . 

pTAW(l ) =0 . 

POO •CiiMTINUE 
RETURN 
END 

SUBROUTINE ERROR ( T ERR , YE Ak , CAI LAY , FRTN,*) 

r . . . ; ■ ■ . ■ 

C THIS SUBRAUTILIL ! >'AS UR IT-TEN BY F. MILASI f. F C.S.C, FUR TASK 09? 

C (SKY LAB) IN DECEMBER, 1973. IT HILL TAKE TBF ARGUMENT NUMBER SENT LIT 
C Hf-k BY SlJBBfUiT)HF 'ZEMPTh" Ok SUBROUTINE ' PTI NG1 ' , HI II. PRINT A MESS AO 

C F RETURN TO STATEMENT 1 90. THERE .POINTING .ANGLE'S OR ZENITH ANGLE 

C WILL HF SET TO ZERO. (THIS ACTION IS TAKEN FOR ANY OF THE TILE CHECK 

0 •FAILURES' I IN YEAR, .CAL PAY AND/OR FHTM WHETHER FA I LEO BY BEING 

C TOO EARLY OK TOO LATE ) .WHEN COMPARE TO DATA IN COMMON (VALUES) . 

0 ' ; ■: ; ' TO ; 

INTEGER YEAR , CALDAY , FRTK 
DATA MAX ERR/ 1?/ 

I F ( I ERR , L T . 1 .OR . I ERR ,GT . M A XERK ) GO TO 130 
GO T n ( I 0 , ?f) , 30,40, 30,60,70, 80, 90, 100, 110 , 1?0) , I ERR 
C 
C 

10 WR IT F ( A , ? 0 0 0 ) I ERR . Y E AR , C A L D A Y , FR TM 
RETURN 1 

?0 WR t TE ( A , ?0 50 ) J ERR , YE Ak , C AID AY , FRTI-i 

RETURN i 

30 WRITE (6,? 100 ) TERR, YEAR, CALDAY, FkTM 
■ RETURN 1 

4 0 W RITE ( 0.21 5 0 ) I E R R . YEAR ,C.A L D AY, FR T M 
■RETURN 1 

50 WR I T F ( A . ? ? 0 U ) I ERR , YEAR .CALDAY , FRTM 
RETURN 1 

00 WR I TE (A,?? 5 0 ) I EH R , YEAR , CALDAY , FRT M 
RETURN 1 

70 URITFC 4 ,?300 ) I ERR , YE AK 
S TOP 

80 WRITE (0,?3 50) I ERR, YEAR, C ALDAY.FR TF 
R F TURN I 'V 

90 WRITE ( A ,?400 ) I ERR, YEAR, CALDAY, FRTK 
RETURN I 


YEAR ,(.AI.DAY, f-'tl TM 



s 

ion hr I Tr ( , 2 A So ) 1 t:RR , 

rhtuy:;? i 

lio wr Hi ( A ,7500 ) ! f- , v ( au .oi.day , h< TM 

RETURN 1. 

1 7 0 W k IT ; - ( A . 7 5 .3 0 ) I E • < R , Y I A >•: , C A | D A Y , F E T H ' ' 

RETURN 1 

1 3 0 WUT T fr ( A , 2 A00 ) T H KR 
STOP 

-2000- FORMAT! )H{), • i M If 1 HI: K 1 , 13, 7X, • HAS OCCURRED 1 ,3X, • INPUT YEAR WAS 

1 LESS T«AN KIRST. YEAR IN COMMON ( VALUES ) • , 3X, 12 » EX , 13 . EX * I 9 ) 

0*5.0- FORMAT (] Hf) , ’ tfRKUR NUMBER'' , 13 , 2X, • HAS OCCURRED 1 , 3-X, 1 I 'iPlJT CALENDER 
1 HAY LESS THAU THE F IRST CALENDER DAY I N COMMON ( VALUES ) > , 5X, 12 , EX 
1, I 3 » A X , T9) 

2 1 00 FI IK*' AT ( ] MO. 'ERRUk MUUKEk' ♦ I3t2X, 'HAS nCCUKKEU ' v3X> O TUI E EOUAL 7 6RT1 
1 -CHECK CUEftOM (VALDES) niViniEO TWO FRAME TIMES THAT ARE THE S/U-.E ' 
] ,5X, T 7 , EX, 13. 5X, T9) ' 

21050 FORMAT ( ] HO , ' ERROR NUMBER ' , I 3 , 2 X , ' H AS OCCURRED ' , 3X , • INPUT CALENDER 
1 DAY HAS GREATER THAN AMY .CALENDER DAY IN -COMMON ( VALUES ) ' , EX, ( 2, 5 
IX, 13, EX, 19) ' 

22,00 FORMAT M HO, ' ERROR NUMBER ' , 1 3 , 2X , 'HAS OCCURRED ', 3X , • INRUT YEAR WAS 
1 FOUND TO BE GREATER THAN AMY YEAR IN COMMON ( VALUES) • , 5 X , I 2. , 5 X , I 3 
1 , ‘5 X , 19) 

2230 FORMAT ( 1 FID , ' ER ROR NON PER 1 , 13, 2X, 'HAS OCCURRED' ,3Xt ' INPUT CALENDER 
1 DAY WAS THE LAST DAY OF YEAR AND SECOND COMMON (VALUES) WAS NOT FI 
/ V 1RST DAY OF NEW YE AR • , 5X , I 7 . 5X , I 3 , 5 X , T 9 ) 

S„- 2300 FORMAT ( 1 110 ,' ERROR NUMBER ',13 ,?X , U-iAS OCCURRED »3X, 1 HOZE IS OUT Of 

1 RANGE • , 15) 

2350 FORMAT ( 1.H0, ' ERROR NUMBER ' ,13 , 2X , ' HAS OCCURR ED ' , 3X , ' DATA I M THE COM 
TMON (VALUES ) WAS NOT Ef-UJAL TO THE FIRST DAY OF THE NEW YEAR',5X,I2 
1 « 5 X » I 3 , 5 X , I 9 ) 

2 AOO FORMAT ( 1 HO . ' ERROR NUMBER' , 13,2 X ♦ 1 HAS OCCURRED 3 X , » INPUT CALENDER 
I WAS THE FIRST DAY OF MEW YE AR , AND COMMON (VALUES) HAS MOT EOUAL T 
20 (305 OR 366/THAT IS THE CALENDER DAY) 1 , 5 X , I 2 , 5 X , 1 3 ? 5 X , 19) 

2450 FORMAT ( IHO » 1 ERROR NUMBER ',13,' HAS OCCURRED ' , 3 X, ' TO I F 1 WAS GREATER 

1 THAN LIMIT (ONE MIMJTE). IN RUT FRTM HAS EITHER E/'KLIEk THAN FIRST 

2 COMMON ( VALUES ) OR LATER THAN LAST COMMON < VALUES ) . • , 5X , 12 , 5X , 1 3 > 

35x, id) 

2300 FORMAT ( IHO, ' ERROR NUM:bER' , 13, IX, 'HAS OCCURRED ', 3X ,' NO DATA EXISTS 
IFOR ZENITH ANGI. E ' , 9 X , 1 7 , 5X , I 3 , 5X , 19) 

2 3 5 0 FClRiiAT ( IHO , ' ERROR NllHBER ' , 13 , IX , ' I IAS OCCURRED ' ,3X, 'NO DATA EXISTS 
1 EUR POINTING ANGLES' ,9X,T2, 5X, 13, 5X, T9) 

2000 FORMAT ( IHO , ' ERROR NUMBER ' , 13, IX , 'HAS OCCURRED ' , 3 X , ' IF.RR GREATER OR 
I LESS THAN MAX ERR ' ) 

END . .... EM • 
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// t-Xf-C AS KG 
/ / Sf II H Ch . S YS r £*• DO 


THIS SUBROUT 1 K h WILL READ SKY L AH S-191 DATA TAPES ♦ (TOO AT 
A T I HP n F TYPES »A‘ AND »H'), AND CREATE A NEW TAPE Dp 
FORTRAN ACCESS 1 KLF ARRAYS CONTAINING ALL DATA NEEDED EUR 
ANALYSTS. IT HAS WRITTEN KYM. MACK (IF C. S.C. FOR ’TASK 092 
- CONTRACT NAS -5-1 1 999 - 'SKY LAD - IN NOV EH HER AND 
DFCFHREK OF 1973. ITS CALL SEQUENCE I S NWT 191 ( NCQND ) . 

(IT NEEDS TO «E CALLED ONLY ONCE ) 

EICON P I S AN INDICATOR SUPPLIED TO USER BY SUBROUT THE 
=1 IT MEANS AM END OF FILE WAS ENCOUNTERED 
= 2 IT NF AMS ERROR PRESENT. 


HOUSEKEEPING DATA NEEDED IS TEMPORARILY STORED IN 
ARRAY HATH WHILE REGULAR DATA IS TEMPORARILY 
STORED IN ARRAY DATIJ ' 


THIS MACRO IS USED THROUGHOUT THE PROGRAM 


IT CHANGES A FIXED POINT VALUE TO A FLOATING POINT VALUE 


MACRO 

FLOAT 

ST 

LPR 

0 

ST 

LE 

AE 

l ;; 

LTR 

BP 

LNER 

MEND 


SRF , SRC 
SRCtFPT+4 
SRC . SRC 

SRC i -X 1 AAOOOOOO • 
SRC , FPT 

srfmfpt 

SHE, =X • 46000000 1 
SRC, FPT+4 
SRC » SRC 
*+6 

SRF , SRF 


NWT 191 CSFCT 


THIS IS ELIMINATED FOR DEBUGGING PURPOSES 


PRINT NODATA, NOGEN ELIMINATES EXTRANEOUS SYSTEM 

GENERATED EXPANSION OF INSTRUCTIONS 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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SAV f- 



( 14, V? ) , ,* ST ANDAR i) SUBROUTINE SET-UP IM UHICH 

SAVF A R E h S FKfi" CALL IM.fi PROGRAM ARE 
Pk L S t: l< V c I) i 


IN CASH 111 FF Fill- HT RFC 1ST HRS ARE D t. SIR E D AS PR OCR AM EXPANDS , 
LITERALS ARE SET UP PUR USE IN PROGRAM. THESE CAM PE 
C, HAND ID . 


THE FIRST 5, THE SYS'l Eii IU-G1 STEPS, ARE NAMED DULY 
Tfj PR (TV THE CLARITY Ir> UNDERSTANDING THE NAMES GIVEN 
1 f.l THE OTHERS, WHEN USED, FUR EMPHASIS, EXPLICIT 
NUMERAL NAMES SILL PE USE!). 




RZ 
RA 
R iv( 
RN 
RU 
P B 
RC 
Rf) 
RF 
RF 
RG 
RH 
R I 
RJ 
RK 
RL 


HFRE1 


BASFAIH 
BAS PAD? 
A G A I M 1 


FOU 

0 

If Oil 

1 

FOU 

13 

FOU 

: 1 4 

EOU 

15 

EOU 

2 

EOU 

3 

EOU 

4 

FOU 

5 

FOU 

6 

FOU 

7 

EOU 

H 

FOtJ 

9 

EOU 

10 

EOU 

11 

EOU 

12 


SYSTEM USED REGISTERS 

SYSTEM USED REGISTERS 

SYSTEM USE U REGISTERS 

S Y ST F li U S ED R E G I S T EkS 

SYSTEM USED REGISTERS 

USUALLY DATA LOADS 

SECONDARY RASE REGISTER 

GENERAL USE AND DATA LOADS 

LOOP INDEX REGISTER 

USED AS INDEX FOR OUTPUT ARRAY 

USED AS INDEX FOR GIVEN TAPE INPUT ARRAY 

USED AS A THIRD BASE-REGISTER 

USED AS BASE REGISTER FOR SUBROUTINE 

INDEX REGISTER 

GENERAL USE - SEE CODING 

GENERAL USE - SEE CODING 


BALK HI, 0 GENERAL SUBROUTINE SET-UP 

USING HERE} ,KI ,RC.RH 

L RC, BASE ADI. THIS ALLOTS USE OF SECOND BASE 

REGISTER 

L RH. B ASE AD 2 

THIS ALLOTS USE OF A THIRD BASE 
REGISTER 

B AGAI N1 

DC 7 A ( HERE 1+4 OB A ) 7 0 ■ 

■DC 7 + . A ( HERE ] + M1V? ) 

st ■ is, save +4 77 : 707:077 77 - • 

la Rj , save 

ST RJtHl 1? ) 


1 3 , K J 


OF BOO 

.'•VI hugi ,C ' 1 • 

st i , Ann at 


STOKE ADDRESS OF DATA PASSED IM CALL 


DEB.IJK 


MV I 
L 


ST 


HOOP ,C ' ? ' 

KB,U( 1 ) 

RD , 0< RB ) 
RD , HCOND 


LOAD RB WITH ADDRESS OF CALL 
A ROOM I": NT 

PUT THAT VALUE INTO H CON'D 


HOUSEKEEPING DATA READ FIRST 



OPEN 

( TP191.A, ( INPUT) ) 

OPEN DATA SET ON THE FIRST TAPE 


GET 

TP191A 

INSERT ADDRESS OF DATA FROM TAPE 




WHICH IS SUPPOSED TO BE TAPE A INTO 

* 1 - 



REGISTER 1 


LH 

R J » 7 1 0 ( 1 ) 

L?0 AD ' N U M B E R 0 F ACT I V £ W A V E L E MG T ITS 




FILTER SEGMENT 1' VALUE INTO RJ 


L 

R K » = F • ? 0 1 

IF THIS I S T A PE A , HOIJS T 0 M TAP ES 




OKI GINA I.LY SENT I N JUNE '74 INDICATE' 

* 



?0 WILL ALWAYS APPEAR ON THIS 




TAP £♦ ( WHICH WE DESIGNATE AS A) 


BN | 

TYPED 


TYPFA 

ST 

1,0 AT A 



SR 

rj ,rj .or., 



ST 

RJ.FINE 

FINE IS AN IND l CAT OR - IF ZERO, 

Vs 



IT INDICATES THAT A WAS MOUNTED ON 

V 



AS EXPECTED 


GET 

TPI91B 



ST 

: 1 ,PATB 



B 

CONTI N 


TYPFB 

ST 

1 , D A T B 



L 

KJ,=F'l' 



ST 

RJ, FINE 

A V A t,U E 0 F 1 IN FINE K FAN S T A PES 

❖ 



KERB MOUNTED -ON EACH OTHER'S DRIVES 


REPRODUCIBILITY OF THF 

ORIGINAL PAGE IS POOR 
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T [ J 1 ') Hi 
l, HAT A 




I , DAT A 

D AT I I ( ?n ) , 0 ( 1 ) 


i-ivc DATIK ?0 ) ,0(1 ) FIRST PART OF 0 A T A TRAPSE ERRED AS IS 

MO PROBLEMS IIFKF 

t.H RB, nATH-l-14 WE WI SH TO SAVE NUMBER OF 

MEASUREMENTS FOR FUTURE USE 

STM ' RB,EMEAS+? . 

MOTE _ up STORE HOUSEKEEPING OAT A IN A DIFFERENT ARRAY 
CALLED OATH? SO CONTENTS CAM HE ACCESSED BY SUBROUTINE IN 
LATER REGULAR DATA PROCESS 1 MG . 

THE FULL ON I NC, LOOP, DATA IS TRAMSFERRED TO OUTPUT ARRAY, (IT 
IS MODIFIED' where NECESSARY). MOTE - ORIGINAL TAPE DOES 
NOT HAVE SOME ROLL WORD DATA ON FULL WORD BOUNDARIES 

IN THIS LOOP. HE TREAT ALL AS HALF WORDS, BUT 
PLACE THEM IN THE PROPER PLACES FOR FORTRAN ACCFSSING. 


RF, ?0 
ft G , ? 0 

RE , MM E AS 
RJ.3 

RB.O ( l , RG ) 
RR.DATH(RF) 

RG , 2 ( R G ) 

RF , 2 ( RF ) 

RJ. HOUSE? 
RB.RB 

RB ,DATH( RF ) 

RF, ? I R Fj 
R J, 1 ? 

R B , 0 ( l.RG) 

RH, DAT HIRE ) 

RG, ? (RG) : 

R F , ? ( R F ) 

RJ .HOUSES 
RE, HOUSE! 


OATH INDEX 
DAT INDEX 
LOOP INDEX 

INDEX FOR HOUSE? LOOP 

INSERT DATA FROM TAPE INTO REGISTER 

STORE IT IN PATH 

UPDATE DAT INDEX 

UPDATE HATH INDEX 

COMPLETE HOUSE? LOOP 

INITIALIZE REGISTER TO ZERO 

STORE IT IN ARRAY OATH! SPACING TO 

PLACE WORD ON WHOLE WORD BOUNDARY) 

UPDATE OATH I CD EX 

INITIALIZE HOUSE? LOOP INDEX 

LOA D HA L F WORD FR DM DA T I NT 0 R EG I ST F R 

STORE IT IN PATH 

UPDATE DAT INDEX 

UPDATE PATH INDEX 

COMPLETE HPDSE3 LOOP 

COMPLETE HOUSE! LOOP 
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EEPRODUCEBILITy OF THK 

Original page is poor 


I.H k,l*n.'vT'H +10 VE WILL I KSERT T I M I : I MTU OUTPUT ARRAY 

ST h P.l . ! ! » T 1 1 S 

ST R J , n a I P ALSO STORE INTO DATE . 

I_M P. J , | IH-8' 

STH k J . I>A TUS + ? 

ST KJ ,f)ATi-+4 

I.H RJ,I)ATH+1? 

STH • RUN) AT US +4 

ST KJ t ') 4 T i: + B 

S U R U f ) 1 1 T I ME C 0 : V SUPPLIES JIJLI A \< (JR C A 1. £ K I > A R 
DAY EMU T VALENT OF SUPPLIED MONTH , DAY, YEAH 

CA 1.1. CP.W , ( YEAR , MONTH , DAY » CALPAY ) 

FUR USE I N SUBROUT 1 ME 
ZEHPTH, WE CONVERT 
DAY MONTH AND YEAR TO 
CALENDAR DAY 


WAV F 1 


B-2G 



RJ,K J 
RE, l? 


INITIALIZE PUS AH AND NO I YE A INDEX 
INITIALIZE LOOP FOR USING ABOVE 
INDEX 


BUGBtC ' 3 


R F , 5 6 


RG, P 0 S A P. ( K J ) 


RL , NOI NEA ( R J ) 


RK , RE 
R K . 3 1 
RK ,31 
RK ,KK 
T PA 


INITIALIZE DISPLACEMENT INDEX FOR 

DATIJS OUTPUT ARRAY. 

load RG WITH DESIRED DISPLACEMENT 

POSITION IN POSAH 

LOAD RL WITH NUMBER FROM TAPE 

TO BE USED BEFORE ACCESSING 

NEW TAPE. 

WE WISH TO ISOLATE LOWEST ORDER BIT 


IF ZERO , NUMBER IS EVEN, AND, AS COUNT 
GOES BACKWARDS ♦ EVEN BACKWARD COUNT 


is ’■ "eMrwm:* ■ 


«>• 



USE TAPE A. 

TPK 

1. 

1 . PA | R 

1.0 AD. ADDRESS OF a DATA 


1*. 

FURTHER 

CUNT I HUE PROCESSING 

T^A 

L 

1 , DATA 

LOAD ADDRESS OF A. DA IA 

MJRTHf-R 

LI! 

RB,()( ). ,RO) 

LOAD IN THE INPUT WAVELENGTH 

V 



value; 

- r ,• • 

FLOAT 

MV . KH ~ - 

CONVERT TO FLOAT I MO POINT 


HE 

KH»=n 1 IDOO. 1 

C 1 1 A MO E 1 I' M 1C K ON S ( W AS 

* 



E:1 Ll.lMlCRUivS) 


STE 

RB,nATUS(RF- ) 

STOKE in oaths 


LA 

R F . A ( RF ) 

UPDATE VALUE OF RE 


LA 

KG . ? ( R G ) 

UPDATE VALUE OF RO 


RCT 

RL . FURTHER 

CD HP LETE INNER LOOP 


LA 

R J i 4 ( R J ) 

UPDATE POSAh AND NO I NE A 




] NUEX 


HCT 

RE. WAVE 3 

COMPLETE WA VE I LOOP 

>i. ■■ 

m- 

v>> 

<l s 

MOW WE 

HAVE ALL WAVE 

LENGTHS RECORDED IN DATUS IN ORDER 


5*C 


NEXT WE CALCULATE SLOPE AND INTERCEPT VALUES 

IS ODD FORWARD COUNT. SO EVEN IMPLIES 


FI NOV 

L 

RE.NMEAS 

INITIALIZE INDEX FOR SLOPE- 

* 



INTERCEPT CALCIJLAT ION LOOP 


LA 

KG, 3 6 

INI T I AL I ZE OATH INDEX FOR ACCESSING 

O/ 



OF INTERCEPT AND SLOPE COMPONENT 

* 



VALUES 


LA 

RE. 69?. 

I N I T I A L I 2 E DA T H I N D E X F OR I N T E RC E P T 




SLOPE VALUE OUTPUT 

■ 

CQFF2 

SR 

RJ.RJ 

I N I T I AL I ZE RJ I NO EX TO ZERO 


LA 

RL.? 

IN I T 1 AL IZE INNER . COE FI .LOOP INDEX 

V 

C0FF1 

LR 

RK.RJ 

TRANSFER CONTENTS OF RJ TO RK 


AR 

KK.RG 

ADD CONTENTS Of RG - PFFFCTIVELY, 

■ 

ri* . 



THIS GIVES US THE PROPER INDEX FOR 

?»* 



ACCESS I NG HATH ARRAY FOR I NT ERG HPT 

.. 

’ W- ;• ’ 



AND SLOPE COMPONENT VALUES 

■ ' ' ' 



RESPECTIVELY 


ST 

RL.CIND 

STORE V A L OHO F R L AS REGISTER WILL 





RF USED BELOW 


SR 

k R * R B 

IN I T 1 A LI ZE REGISTER TO ZERO 


ItfePRODUCffilLITy OF THE 

Original page is poor 


1." 

RB , BATIK RK ) 

INSERT CO* POKED 1 ( GOPFF l (. 1 PNT ) 

LTH 

P. B , K A 

TEST. IF VALUE IS f*' BOAT I VF - 
HOUSTON JSC RFC. iKBS NEGATIVES 
JUST LIKE PUSH IVES rVCi-PT WITH Th|; 
MUST SIGNIFICANT till A iVU- - IBM • 
EXPECTS ? ' S COMPLEMENT PUL NEGATIVES 



'•It MUST LOO f F Y l UMHfxK 1 HER F l-ORh . 

B P 

UK 


H 

KB ,sX' 0000 YFFF ' 


LHR 

KH » HM 

CONVERT TO N t G A T I V t , ( IBM MB GAT I VH ) 

STil 

RB,UATH(KK) 

CHANGE VALUE IK HATH SO CORRECT ONE 
I S PR t' SENT ( THE I K NEGATIVE - HOUSTON'S 
- IS DIFFER EOT FROM OURS) 

JVC 

0,0 

N 0 OR F R A T ION -LIKE CO N T 1 0 U B I N 
FORTRAN 

FLOAT 

KB «Ki* 

CHANGE INTEGER INPUT TO FLOATING 
POINT 

LB 

RD, =f: '10. ' 

LOAD REGISTER. RD WITH 10. 

IN PREPARATION FOR EXPONENT LOOP 

SR 

RL.KL 

INITIALIZE REGISTER TO ZERO 

LH 

RL , DATH+? ( RK ) 

LOAD REGISTER WITH EXPONENT COMPONENT 

LTR 

KL , HI. 


B7 

ZERO 

IF ZERO, GO TO ZERO TO PROCESS 

B M 

NEG 

IF NEGATIVE, GO TO NEG - (EXPONENT 
IS NEGATIVE - CALCULATE VALUE 
DIFFERENTLY ) 

s 

RL , =F ' 1 • 

SUBTRACT ONE FROM GIVEN EXPONENT 

R 7 

ONE 

IF EXPONENT WERE ONE, POWER IS 10. 

ME 

RD , -E ' 10. ' 

H U L T I P L Y C 0 N T ENT S OF RE G I STEP BY 1 0 . 

RCT 

RL , EXP 

CONTINUE TO DO SO UNTIL COMPLETE 
CALCULATION OF GIVEN POWER OF TEN 

B 

ONE 

GO TO 0 H c FOR F U R T H E R PR 0 0 E S S I N G 

M 

RL , = X* 00007FFF ' 

TAKE POSITIVE VALUE OF EXPONENT 

INK 

KL , RL 


ST M 

RL , OATH+? ( RK ) 

CHANGE VALUE IN OATH SO CORRECT ON E 
PRESENT (THE! R MEGAT 1 VF-HOUSTON ' S - 
IS D I PEER ENT FRO*" OIJRS) 

LPR 

RL • RL 

TAKE POSITIVE VALUE FUR LOOP INDEX 

s 

R L » = F ' 1 • 

SUBTRACT ONE 

B7 

MOKE 

IF MINUS ONE, GO TO NONE 

ME 

RD . - H '10.* 

MU L T I PL Y C ( )HT t NT S OF H E G I S T HR BY 1 0 , 
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-vr-r- 


Jjt 

ACT 

HI. » F X pH 

H(1?V 1- 

STF 

RD * F R T 


1J: 

K I > , = E ' 1 . 


PI: 

RDTFPT 




o'. 

P 

ONE 

ZERO 

LE 

RD , =E ' l . 


DMF 

HER 

KB, RD 


STF 

Kli , I ) A T H ( RF ) 


LA 

k F , 4 ( k F ) 

O# 

LA 

R J » 4 

* 1 * 

L 

RL , C l NO 


BCT 

R L , C 0 E F 1 


LA 

RG,3?(RG) 

r*C 

RCT 

REtCOFFZ 


DEPUG 


V \ 

MV I 

hUG4,C '4 ' 


o* 

•' 0 . 


com rii'u- to no so until complete 

CAI.CULA'I ID • OF PLlV.'f K H- TEN 
TbvA'nKAIi ] I.Y STORE ^F G 1 S f E -• CUNT CM TS 
LOAD REGISTER Pi T O OMF 
01 V II Ur' KY VALUE Or I ERG IN ED ABOVE ' A.YO 
TEMP OK AH I |.Y STORED. [| 

BKAMCII TO ONE ri'J CONTINUE PROCESS I NG If 

WISH ZEkP-TH PUWEK 01" 10 WHICH IS ONE if 

| 

MULTI FLY COEFF I C 1 EOT BY POWER OF TEN jj 

STOKE K t SUL T TO OUTPUT ARRAY OATH if 

UPDATE OUTPUT I NO EX f 

UPDATE DISPLACEMENT INDEX FUR COE FI ■% 

LOOP ;| 

RESTORE VALUE OF LOOP INDEX TO KL j| 

COhPLETE COrFl LOOP 

UPDATE INDEX FOR ' COMPONENT ACCESSION If 

COMPLETE CUFF 2 OUTER LOUP • | 



SR 

RF , RF 

ZERO REGISTER 

*»> 

V 

LH 

• RF, DATH+] 8 

LOAD REGISTER WITH MUMPER OF BLOCKS 
OF DATA PER PHYSICAL RECORD 


ST 

RF. MB LOCK 

SAVE FOR FUTURE USE 


FOR FUTURE USE, WE WISH Ttl CALCULATE THE LENGTH OF 
USA B LE DATA IN E ACM PH Y S I C A L B LOCK 



SR 

RK » RK 


L : 

RE, MM E A S 

CALCI.W 

LA 

RD , ?,2 

LH 

RL , D ATH( RD 1 


ZERO RK ;v 

LOAD. RE WITH fJt.INp.FR OF HE A SI IRE WENT S 
SET RD 1:0 UAL TO REG INN INK OF NO. 

OF SAMPLES PER MEASUREMENT DATA 
LOAD Rl. WITH MUR PER OF SAMPLES FUR 





I HI S MEASURE 1 

LOAD KG W 1 I'M fjf). r, ITS PI ; R f ' h A S . 
/'.•Hi I u r 

oi vi in i'USHpk hy h 

0 U T K I- S 1 1 U t A! 0 . BY T l- S » I H R J 
/ 10; i.l HF 

P 1 1 T Hi 5 . S (i » p I. f S I > i i ! K G 

SUIT! FLY >'Y W H . KYI!- S P n R M I- A S . 

Ann KlfSULl 'III SUB- I OTA L IN KJ< 

U P 0 A T 1: i-i F A SU R (•; M i- ! >! T I HO E X 



TRYAGM 


MflROA T 



LH 

RG . 1 1 A T O + P 

Sk 

R F , P F 

n 

<F,=F 

L K 

KJ • R G 

SK 

R F ,'U- 

L K 

R G , R 1. 

m 

R F , H . 1 

A P 

K K . •' G 

LA 

K D , 3 / ( -U 5 ) 

KCT 

RE rCALCLN 

A 

R K , = F 1 A ' 

SK 

KJ ,KJ 


rj,; BLOCK 

ST 

RK , DATLN 


DEBUG 

MV I RUGS , C 1 5 1 

B M OR DAT 


L 

R J , MB LOCK 

LTR 

R J , R J 

BP 

5TILLHV 


GFT 

TP191A 

L 

KK.FIME 

LTR 

RK , RK 

BZ 

T P 0 K 

ST 

1 , OATH 

GET 

TP 1 DIB 

ST 

1 VITA T A 

B 

Ft OR GO 


F IN l SO U!! H 
ADD FOUR BYTES 
ZERO RJ 

MULTI HI. Y BY NO. 


FDR PRATE TIME 

BLOCKS HER PM YS ♦ 






STORE RESULT IM DAT LN 


F 1 R S T T l W E TH R U , !•! F !•! I L L 0 E F 0 
TO READ MORE DATA FROM BOTH 
TAPES IMMEDIATELY 


LOAD RJ WITH CURRENT VALUE 
OF N BLOCK 

TEST IF DATA STILL PRESENT 
I MR LOCK WILL STILL BE 
POSITIVE IF THAT IS THE CASE) 

FETCH ADDRESS OF INPUT TAPE DATA 
FROM TAPE A 

TEST IF ZERO 

IF SO, A IS A AMD B IS H! 

DATA TAPES REVERSED - PUT ADDRESS 
OF * A 1 10 B AND VI CE VERSA 
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REC 




TP OK V 

ST 

MET 

ST 

1 tUATA 
1 PlT-l •< 

1 ,oatr 


(•AT A IN 
SO PUT'. 

PH UP HR POSITION 
•A' IN A AN!') • A ' IN B 


mR&n 

R C 

0 , 0 


LIKE A 
JUST iU; 

'CONTINUE Hpn h ♦ MAT A 
FN SECURED f SO ALL PEI 

HAS 
!< TIN 


INDICATORS MUST BE KE- INITIAL. I7.si) 


jt* 

MV I 

BUG7,C • 7 1 



L 

1 1 Ki=F • 7 . ' 

INDICATE ENTRY TO THIS PORTION OF 
PROGRAM 


ST 

RK,BACK 

STORE FOR FUTURE USE 

■«** 

SR 

RG , RG 

IN ITI AL OF RG INPUT DAT ARRAY 
ACCESSING INDEX TO ZERO 


ST 

RG » PUSS AVE 

RE -I NI T I ALIZE POSSAVE 


SR 

RJ,kJ 

ZERO REGISTER 


LH 

RJ , DAI H + 1 H 

RE -LOAD NUMBER OF BLOCKS PER DATA 


ST 

RJ , .NR LOCK 

SET (PHYSICAL RECORD) INTO MB LOCK 

»u ' 
O' 

R V 

STORING 

BRANCH TO STORING AREA FOR FURTHER 
PROCESSING 

STILLHV 
«.»> . 

'i- ... 

5|i 

L 

RG, POSSAVE 

INITIALIZE RG ( I NO EX OF I N PUT D A T 
ARRAY) 

O' 

jtj ' . " 

DEBUG 



«.u 

-i' 

KV I 

BIJGB , C ' 8 * 

TO LAST VALUE USED (LAST ENTRY) 

5 *> ;. 

L . 

RD , QATLN 

LOAD RD WITH LENGTH. OF USABLE DATA 
RECORD 


SR 

R D , R G 

SUBTRACT VALUE OF RG 


BP 

STORING 

I F THERE IS STILL DATA , GO ON 


B 

HURD AT 

NEED MORE: .. DATA IN DAT 


STORING L 

I, DAT A 

LOAD 1 

W ITH ADDRESS OF TAP E A DATA 

LR 

«J. 1 



TV. ; .N'n'T.'N:R'';A'T.., 

RJ, PUSS AVE 



MVC 

FRTH ( 4 ) . 0 ( R . 

J) INSERT 

FRAME TIME 


DEBUG 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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MV I. 

BUGS* . C 1 V ' 



CALL 

PRAT JM . ( PR TO, I 1 

I IPF ) , VI. 


LH 

RJ, IT PN C 

ENTER HOUR .. MINUTE » 

AM) 

STH 

k J ,1 ATUS + A 

SECOND INTO OUTPUT 

DATUS 

LH 

R J » I T TNE+R 

ARRAY - VALUES CAL 

CULATED 

STH 

RJ .DATUS +B 

I N SI 1 HR OUT 1 WE FR A T 

IN 

LH 

RJ ,111 y F+4 



STH 

RJ , DATUS+ ID 




I.nnp FOR ACCESSING REGULAR DATA - THERE WILL BE 
A RIVEN HUMMER OF SAMPLES FOB EACH MEASUREMENT -THIS IS 
FOUND IN THE. HOUSE KEEP It'D RECORD 


LA R E , 1 ? LOAD LOOP INDEX WITH THE .V UP HER OF 

CHANGES OR ENTRIES IN POINTR 

LA RF.HR4 INITIALISE OUTPUT DATUS J NO EX 

SR RJ , RJ ZERO RJ - IT HILL HE DISPLACEMENT 

INDEX FOR GRPFILD - WITH BO ENTRIES 
IT WILL BF. UPDATED IN OUTER DATLP1 
LOOP 

SR RL.RL ZERO RL - IT WILL BE DISPLACEMENT 

INDEX FOR POINTR - WITH 30 ENTRIES 
IT HILL BE UPDATED IN INNER DATLP? 

L OOP . ( A L SO U S E 0 F OR ' S L I N * ) 

ST • RL.RL SAVE SAVE FOR FUTURE LOAD PURPOSES 

SR R D . R n 

ST RD .DATLP I NO STORE DISPLACEN ENT REFERENCE 

FOR ONE OF 30 'GROUPS' 

L RD » WO I M E A ( R J ) , L 0 AO TH E NIJM R F R OF R AO I ANCE S 

FOR THIS 'GROUP' 



ST ro.oatlpin STORE CURRENT VALUE OF 

NUN HER OF RADIANCES FOR f 

THE 'GROUP ' IN DATLP IN 

L RL.RL SAVE RE -LOAD THE NEXT RL REFERENCE * 

L Rl< . GR PFI LD ( R J ) LOAD THE NUMBER OF DETECTORS • % 

RECORDED FOR THIS FILTER AND -V--. : f 

WAVELENGTH . I 


ftEPRGDUCIBILlTy OF THE 

Original page is poor 
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r n , r n 

KiUhADl 

R. O , HAP ?■ 


— f T~ ^1] ,.IU(— 




i|C 


S '•? 
ST 
ST 


0ATLP3 

L 

RG, P01NTRI RL) 




A 

KG, POSS AVE 




ST 

RK , GTNO 

TEMPORARY STORAGE 

AS NEED REG. RK 


LK 

RB', RE 

MOTE - not) POST Till' 

•! I'M REG. RE HOULD 


S 1 L 

MB, 31 

BE EVEN I N FOE '-SAP 0 

OR DER I MG , ( 1-30 ) , 


S M l 

R R , 3 1 

AND VICE-VERSA - W 

E check for non 


L 1 R 

R B , R B 

OR EVEN « DUALITY* 



B7 

'ME EDA 

NEED DATA FRO? 'A* 

TYPE TAPE 

WE FDR 

A 

RG , HATH 

ADD ADDRESS OF ' B ' 

TAPE DATA HERE 


B 

DAT PRC 



mfeda 

A 

R G , D AT A 

ADO ADDRESS OF 'A* 

TAPE DATA HERE 

0 AT PRC 

LR 

RB,RG 

LOAD RB WITH VALUE 

IN KG 


A 

RB.DATLP INO 

ADD CURRENT DISPLACEMENT 


LH 

RB,0( RB) 

LOAD DATA INTO KB 



LTR 

RB , RB 




BP 

OK IS PCS 






THERE I S NO DIFFICULTY 


N 

RB , - X 1 OOOOFFFF 1 

PROBLEM OCCURS UHE 

N VALUE 


OKI SPHS RC 0,0 

* HE HUG 

MVl RUGA, C' A 1 


ON TAPE HAD A LEADING BIT 
l -HOUSTON DID NOT MEAN : IT, HERE, 
AS A NEGATT VE-1BM TREATS IT 
AS NEGATIVE IN LOAD, SO HE MUST 
ELIMINATE IBM' S 1 ' S. 


REGCASE 


RC 

LTR 

B7 


0,0 
RB , RB 
NOTNEED 


I F PARAMETER I S ZERO, HE DON' T 
IT HERE 


FLOAT 

L 

LE 

HER 

AE 

I. 

STE 

LA 


RB , RB 

RK , SL 1 N ( RL ) 

RD , OAJH+4 ( RK ) 
R r , r o :: 

RB , PATH ( RK ) 

RB , M AT) 2 
RB .TEMPI RB ) 
RB,4( RB ) 


LOAD THE SLOPE 
MULTIPLY PARAMETER BY IT 
ADD THE INTERCEPT 
load HITH DISPL. FOR 


im 


« 


m 


1 



ST 

R l'i • : i A j ) ? 

STORE I.JPDAT ::D OJ SpL. JOTl) HAD? 


1. 

RK, HAD] 



1. A 

K K » 3 ( RK ) 

UPDATE VALUE of II AD! , 


ST 

RK , HA|)1 

(MO. OF Df TEC, USED) 


I.A 

R L ♦ 4 ( R L ) 

U P i ) A T E V A L L 1 E O F R 1. , ( D I S P E A C E M E l\' 1 




FOR S L I M- S l, 0 P F - I U T E R C E l J T 

* 



ARRAY) 


1. 

RK i C IND 

RESTORE LOOP INDEX VALUE TO 

5 V . 



RK 


DEBUG 




MV I 

bughVcb* 



DC T 

RK , DATl P3 

COMPLETE DAT LI' 3 LOOP 


1. 

RD,HAD1 

CHECK HOW MANY DETEC. HAD 


ltr 

R D , R n 



8Z 

notove 

NOME - ALL ZERO 


C 

K D , = F ' 1 ' 

ONLY ONE CASE ? 


tuvE 

MR THOME 


Jl IS TONE 

LE 

RB , TEMP 



STE 

RB i DAT US ( RF ) 

STORE IT 


I.A 

R F , 4 ( K F ) 

HAVING STORED THE ONE GOOD 

V 



VALUE INTO OUTPUT ft R RAY, 

?;< 



■UPDATE INDEX TO IT. 


SER 

KB , RB 

ZERO RB 


STE 

RR , T EMP 

RE- I N I T I ALT Z E S TOR AGE A K E A 


L 

RR, DATL RIND 

. LOAD DISP I.A CEMENT FOR 

i'c 



each • group 1 


I.A 

RB, 2 ( RB ) 

UPDATE IT 


ST 

Rrt,DATLPIM() 

STORE IT FOR FUTURE USE 


L 

RD » DAT L R IN 

LOAD RD WITH VALUE OF LOOP 

* 



I NDEX PREVI OUSI.Y S AVED 


BCT 

RD, DATL PR 

COOP L ETS DATIN'? LOOP 


ST 

RL , KI.SAVE 

SAV E VALUE OF RL ( LATEST ) 


LA 

RJ ,4( R J ) 



BCT 

RE, D.ATLP] 

COMPLETE DATI.Pl : 


H 

SKYRET 


MflT r IMF 

LE 

RR ,-E ' n . 0 ' 

ZERO REG. RR 


STF 

KB , DAT US ( RF ) 

STORE ZERO INTO OUTPUT 


LA 

RF , 4 ( R F ) 

UPDATE VALUE OF RF, { DISPLACEMENT 




FOR 0 U T POT ARK A Y , DA TO $ ) 


SER 

RR, RR 

ZERO RB AND' 


KEPEODUCIBlLlTy OF THE 

Knal page IS POOR 
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STp R i V » TEMP 

L RH.DATL RTMD 

LA RB.RfRR) 

ST i? R , U A TL P I !D 

L H D , l) A T I. P ) M 


BCT HD, DA TLB? 

ST Rt. ,RI.S AVI; 

LA R J , 4 ( R.J ) 

BCT K •; , O.ATLP 1 

H SKYBET 

ivRTHflMr- L R B , HAD 1 

LA RK,4 

LE : RB » TEMP 

SER RD.RD 

STE RD .TEMP 

* DEBUG 

v . 

MV I BUGC ,C »C * 

*r* 

S R R , = F • 1 ' 


ADD FD A E RR , TEMP ( R l< ) 

SER RD, RD 

STE RD, TEMP ( RK ) 

LA RK ,41 RK ) 

BCT RR. ADDED 

’ ; L RD.HAD1 

■ F LDAT KD,RD T." 

DER , v - RR,RO . V 

V ■ 

STE RB , DAT US ( RF ) 

LA ' R F , 4 ( R F ) 

L RB,DATLPI NI D 

LA RB , 2 f RR ) 

ST R B , D A T |.. p I •«!) 

L RD , DATL P 1 N 

T' 

BCT RD,DATLP2 

ST rl,rlsavf 


0 - 1 M I T I A 1. 1 Z L: STORAGE AREA USING 
LOAD I) I SPLACFOFMT for 
FA CO’ 'GROUP' • 

UPDATE IT 

STORE IT FOR FUTURE USE 
LOAD RD PITH VALUE OF LOOP 
T 0 Di-X P K E V 1 0 U S L Y S A V ED 
COMPLETE DATI.P2 LOOP 
S A V F VALUE OF RE (LATEST ) 

UPDATE VALUE OF RJ 
COMPLETE OftTLPl LOOP 

LOAD NO. OF CASES FOUND 
INITIALIZE RK REG. 

1.0 AO THE F IRST VALUE 
ZERO RO • 

RE-INIT I A L I Z E ST OR AGE AREA 


LOWER MO. CASES BY 
ONE SO AS TO GET L . 
ADDITION LOOP INDEX 
ADD NEXT VALUE 
ZERO RD 

R E- IN I TIALI ZE STORAGE A R FA 

COMPLETE ADDITION LOOP 
RE-LOAD NO. CASES 
CHANGE jo FLOAT I NG POINT 
GET AVERAGE 

■ STORE IN OUTPUT ARRAY V 
UPDATE OUTPUT ARRAY 
INDEX 

LOAD DISPLACEMENT FDR 
EACH 'GROUP ' 

UPDATE IT 

STORE I T FOR FUTURE USE 
LOAD RD WITH VALUE OF LOOP 
INDEX PREVIOUSLY SAVED 
COMPLETE DATED ? L DO P 
SAVE VALUE OF R L < L AT F S T ) 


T 


i 


SKYHFT 


LTPOS 


'"i I 

' \ J 


LMpnS 


•RJ.MkJ ) 

W *: , 0 A T I. H i 


UP'ATI: GRPFILO INDEX 

comri.fte datlp ] 


WE will CALCULATE AND SAVE VALUES OF LATITUDE , LONGITUDE » 
ALT I TUDE , YAW, p ITCH AWI) ROLL HERE 


RG, POSSAVF 


LOAD R G WITH PREVIOUS POSITION OF 
DATA PO INTER 


A 

R GYP AT A 

ADD ADDRESS OF 'A' TAPE DATA 

A 

R G , -~F ' 604 ' 

ADD 60'* - DISPL. TO BEGINNING 

LA 

RK V R 1 V. 

INITIALIZE RK - REG. FOR 
ACCESSING SLOPE AND INTERCEPT 
VALUES IN DATH 

LH 

RB *0 ( RG ) 

LOAD LATITUDE PARAMETER 

LTR 

RH,RH 

TEST IF 'NEGATIVE' 

BP 

LTPOS 

LEADING HI T ZERO - OK 

B 7 

LTPOS 


N 

RB , =X ' 0 00 OF F F F ' 

S E E EXP L A NA T I O N U NO E R 0 K I S POS 

nc 

0,0 

CHANGE TO FLOATING POINT 

FLOAT 

’ HB, RB 


LE 

R 0 , [) ATH + 4 ( RK ) 

LOAD SLOPE 

MER 

RB,RD 

MULTIPLY PARAMETER BY IT 

AE 

RR , DAT H,( RK ) T 

ADO INTERCEPT 

STE 

RR ,!>ATUS+1E 

STORE INTO OUTPUT ARRAY 

LA 

RK , B ( R K ) 

UPDATE SLOPE ACCESSING INDEX 

LA 

RG , 2 (RG) 

UPDATE DATA ACCESSING INDEX 

LH 

RBtO(RG) 

LOAD LONGITUDE PARAMETER 

LTR 

RB,RH 

TEST IF ' NEGATIVE' 

HP 

LMPOS 

IF leading BIT ZERO, OK 

RZ 

IN PUS 


M 

RB, -X ' OOnOf-FFF ' 

SEE EXPLANATION UNDER OKISPQS 

HC 

0,0 

CHANGE TO FLOATING POINT 

FLOAT 

RB,RH 


LE 

RD , DATH+A ( RK ) 

LOAD SLOPED 

MER 

RR ,RD 

MU L TIP LY P ARAME TER BY IT 

AE 

: RR , PATH ( RIs ) 

ADD INTERCEPT 

LTER 

RR , RR 

TEST FOR SIGN 

R7 

?. L ON 

HOUSTON GIVES ZERO VALUE 

H W 

WLON 

Houston h a s w . long i tope as 

N EG ATI VE FOR W. LONG , VALUES 


REPRODUCIBILITY OF THE 

Original page is poor 
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pi iSLOfv 

LE 

RD, =F ' 360 . ' 

5'* 



-r ' 

SEW 

R f) , R B 


STE 

R 0,0 ATUS +16 


B 

ALT I T 

7 LON 

STE 

RB , DA TILS + 1-6 


B ’ 

ALT IT 

WL ON 

MF 

KB , =5 ' -} „ ' 


STF 

RB , D ATUS+ 16 

ALT IT 

LA 

KG,? ( RG) 


LA 

RK , B ( RK) 


*»- 

O' 

* 


LA H E ,4 


LA R F » ? O 

ALYPR !,H RR,0(RG) 

LTR RB »RB 

RP OKVAL 

B 7. : OKVAI 

N RB,=X'OOOOFFFF' 

OKVAI. BC 0,0 ' , 

FLOAT KB , RB 

LE RO » DATH+4 ( RK ) 

NEK RB ,RD 

AE R B , D A T H ( RK ) 

STF RB , PATHS (RE ) 

LA R I- , 4 ( R F ) 

LA : RK,8( RK ) 

LA RG,?( RG ) 

BCT TE, ALYPR 


OP TO 1«0. 

LOs'C.n l J : 1 H 01; Hi. , FRO; 

HOUSTON, )S F. 1 OOi-17 OOF, 

(VALUES OP TU 1 HA. ) , POT OS FC 
V I SH F S 0 , l.l ion I TO) »!• , ( 1 80 . TO BOO . ) 
f. Os : V ft R T 1 T H Y S l W 1 K A CTII ■< G F K i '•> 

360. AMO STORE 

7. E R 0 V A L 0 L S A M F f OF B 0 T H 
FIDOS TOO 1 S HUNGERING AOO OURS. 

Kish prism ve ftfUJi valent 

STORE If,’ OUTPUT ARRAY 
UPDATE DATA ACCESS I 00 I Mil EX 
UPDATE SLOPE-INTERCEPT ACCESSING 
INDEX 


INITIALIZE LOOP INDEX FOR 
DETER FIN I LG ALTITUDE, YAK, P I TC-H, 
AND ROLL 

INITIALIZE OUTPUT ARRAY INDEX 
LOAD IN PARAMETER 
TEST IF 'SEDATIVE' 

OK IF .LEADING P.TT ZERO 
SEE EXPLANATION UNDER OKISPOS 
CHANGE TO FLOATING POINT 

LOAD SLOPE 

MULTIPLY PARAMETER BY IT 
ADD INTERCEPT 
STORE IN OUTPUT ARRAY 
UPDATE OUTPUT ARRAY INDEX 
UPDATE SL. -INTER. INDEX 
UPDATE DATA ACCESS INDEX 
COMPLETE LOOP 


WF HFEfy MOW ORLY CALL SUBROUTINE ZIRPTN T! J l»l-K I VtT 
VALUES OF SUi ! 7 . ff U I T H AMU I F AH) Al. SO THE POINTING AW OLE S 

CAII. 7.EMF.TM , ( C A I HAY 


LF 

RB, ZENITH 

STF 

RB , OAT IJS + 3 A 

I.F 

RB, PTAN 

STE 

RB , D AT I.IS + 40 

LE 

RB , PT AM + 4 

S TE 

RB , |)A T1 ; .S+44 

LF 

RB, P I AN-l-H 

STE 

R B , 0 A T U S + 4 M 

LE 

R B , P T AN + 1 7 

STE 

RB , DATUS+5? 


YEAR , FR1 Mi / FMI TIT, PTAN ) 

1.0 AO THF 7 F .'v I T I I AHTL F 
STORF I H OUTPUT ARRAY 
LO AO FIRST A MULL 
S TO l< S I f ; TH IT PUT AH K A Y 
LOAD SECOND A MOL. k 
STOPF IV OUTPUT ARRAY 
LOAD TH iun A MULE 
STORE 1 A OUTPUT ARRAY 
LOAD TN FOURTH ANGLE 
STORE If 1 OUTPUT ARRAY 


CALI. MR IT IT TO POTH PUT VALUES OUT ONTO TAPE AMO TO 
LIST VALUES FOR SC I EOT .1 STS PERUSAL 

CALL WRIT IT, ( OATHS ,’l DATU? ) 


RFST L RF, MR LOCK FETCH NUMBER OF BLOCKS YET TO BE 

V ' PROCESSED 

S RF , = F 1 1 ' SUBTRACT LIME (OWE HAS JUST USED!) 

ST RF, MBI.OCK STORE BACK IN N BLOCK FOR FUTURE USE 

L RD, POSSAVE LOAD PREVIOUS VALUE OF P OS SAVE 

'Lvf AH' : R0 RD , DATH + ]. ft OH. ADD THE BLOCKS I ZE 

ST RD, POSSAVE STORE IN POSSAVE FOR FUTURE USE 

■r. ' IF WHOL E PHYSICAL RECORD WAS NOT 

* -..v *w'V. USED, THEM NEXT PASS YOU WILL 

ACCESS DATA START I NG AT THAT POSITION 

V 

B TRY AON 00 TO TRY AON TO PROCESS NEXT 

REGULAR RFC OR 0 
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ttePSODUCIBILlTy OF THE 
ORIGINAL PAGE IS POOR 


F l l.i- 'H 


L 

ST 


k J ,=(-'[• 

] , Ann at 

RK , 0(7 ) 
R.l ,0 ( RK ) 


END n F r I IP. - FI Hi SIM? n 

RFSTORF ADDRESS Op ARGIL f-‘ TS IN CAI 


GDback 


BC 


O , 0 


HD OPERATION - LIKE CD'' T I *‘l jF TM 
FORTRAN- '-MTER HERE <*: H !■? N HX.FCOTTOV 
FHnntIR'T FR • D NO HIT* F I CULT I ES - CAM • 
R fc - 1 M I T J Al. I '/. F BUG S A S A r r SUL T 


RE INITIAL T7E BUGS 


GO BACK 1 


PVT 

mjPStC 

n 1 

NVl 

wur^c 

(\! 

MV I 

bug? vc 

i) { 

MV I 

BtrnM ,c 

O' 

MV I 

HUGO, G 

0 ' 

MV I 

RUGA , C 1 0 ' 

MV I 

BUGB ,c 

'O' 

MV I 

BIJGC , C 

0 ' 

L 

13,4(13) 


RETURN ( 14, 12 ) ,T 


RETURN PROCEDURE - ENTER HERE 
DIRECTLY, INSTEAD OF THRU GOB AC K, 
WHEN DIFFICULTY ENCOUNTERED . 

C AN THE N C HECK 1 BUG 1 V A |. U E S I M 
DUMP 

R ES T ORE R EG I STEPS AND KFTIJR N 


RUG 1 
BUG? 


INITIALIZE VARIABLES AND STORAGE HERE 

L T OR G PLACES ALL LI T FR AL S HERE 

LTORG /. 

FOR DEBUG USE : 


DC 

DC 


C ' 0 ' 

C. ' 0 ' 
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K&'&yt&nU ":K 


RUG 3 

DC 

c 

!0* 

RUGA 

DC 

C 

» n 1 

Rt IGD 

DC 

c 

* 0 1 . 

Hi IGA 

DC 

c 

i(5 1 

BUG? 

DC 

p* 

w 

t o i 

HUGH 

DC 

c 

» n * 

BUG9 

DC 

c 

■ 0 1 

BUGA 

DC 

c 

1 0 * 

RUG R 

DC 

c 

* a * 

BHGC 

* 

-i* 

a** 

‘T* 

v DC ' 

c 

1 0 1 

.t. ■ 

V 

'■wV 

I 

NPUT TAPE 

T 

TP191A 

DCR DSI IRG 


S , M A C R F = 

TP 19 LB 

■f 

Vj 

A' 

DC.R DSORG 

= P S , M A C K F = 

variables 

ADD AT 

r ; : -.DCv: ::"■■■ 

F 

• 0 • 

V 

BACK 

■ 

DC 

F 

• 0 » 

* 

CALDAY 

y : . 

DC 

F 

•O' 

' 'I' . 

Cl MO 

DC 

F 

'O' 

DATA 

DC 

F 

•O' : '---V. 

DA IB 
v 

P:‘ DC l-l 

F 

» 0 ' 

MONTH 

5 I C 

.*> 
v - 

5*t 

DC 

F 

4;OT.;S-' 

V 

«>- 

. V ■ 

DA Y 

DC 

F 

'0 ' 

Y B A R 

DC 

F 

• 0 i 



TEMPORARY LOCATION FOR INPUT 
CONTENTS OF 1 - ADDRESS OF CALL 
SEQUENCE 

I ND I CATtJK SHOOING WHETHER REGULAR 
DATA WAS ACCESSED YET, (ZERO, NO - 
OWE, YES) ■■ 

CALENDAR DAY OR JULIAN 

DAY LOU I VALENT OF 

MONTH AND DAY STORED HERE. 

TEMPORARY STORAGE LOCATION FOR 
INDEX REGISTER VALUE 

WILL CONTAIN CORE ADDRESS OF TAPE A 
DATA 

W ILL C ON TAIN C OR E A DD R E $ S 0 F T A P E H 
DATA 

MONTH OF DATA - NOTE - IT IS 
EDI) I VAL EDGED TO DATE FOR EASE 
OF STORAGE INTO MONTH, DAY AMO YEAR 
FOR THIS REASON ALSO. THESE VALUES 
ARE PUT OF ALRH A Kg 7 I OAI. ORDER 
THEY APPEAR WHERE ' D A TE * WOULD 
HAVE APPEARED 


B-40 


■'X-'tr 


4» W9 ah? 


s;c 

f n, r A S f 

OF STDKAC 

F, FI: * I S F ' AY 1 0 A T ii FOR 

V 

F f 1 1*1 T »■ * f i * A V , r U P • V : : A K 

. -Uif hHSI I IDS ID- ST O' AD|; 


A >•’ •- i,lVr: 

•?v AFFS -D 

'•* TO, MAY ADD Y - - A K , ( S I 0 C F T M I: Y 

*,i 

a hi- i is*; 

> r call t 

n soMKinn ir f com/) . thus 

5;%. 

wF RUST 

FDDlVALFDf' 

F Tm-i , ( i > A TF A 0 On NTH ) • 

V 

MATF 

fO! ! 

KOHTM 


llATLi't 

nr: 

F 1 ^ A 64 » 

LENGTH DF US AIM I: . I ''PUT DAT • aRRaY* 




FRO? TAPI: - ACTUAL PHYSICAL Ml. OCR 




LENGTH IS 2520 HU! THIS INCLUDES 

■ 



FI l.l. 7 EPOS 

HAIM' I N 

PC 

F • 0 1 

TEMPORARY STORAGE PDS FT I ON FDR INDEX 

'i' 



DF l.nnp DAT l.l J ? 

n/» TL pi mo nr; 

F 1 0 ■ 

TEMPORARY ST UR AGE FUR 




D I S PI . A C E :-i E N T FDR DA T A ACCESS I N 

jU 



DAT IP? 

FINE 

DC 

F'O' 

INDICATOR AS TO WHETHER TAPES 

'A 



HERE MOUNTED CORRECTLY! A ON A. AMD 

V ' 



B DM B - 0 HEADS OK m HILF 1 M’FAMS 

>;t - . 



’THEY ARE REVERSED 

FPT 

DC 

? f • n • 

TEMPORARY - STORAGE AREA USED RY MACRO 


AT 


FLOAT 

F R T m 

DC 

F'O' 

F R A f ' F T I HE S TOR A G E L OC A TT ON 

GRPF i. L 

DC 

F '3,3,3, 

2,2,2 ' GIVES NURBER OF DETECTORS FOR 




E A Cl 1 FILTER S E GK E IN T 

GRPFTLD 

DC 

F '3 ,3 ,3 . 

3 » 3 , 3 » 2 , , 2 » 2 , 2 » 2 1 




GRPFILD BREAKS THE DETECTORS Of!!-' •' 

V . 



SO AS TO COp RESPOND TO THE SEE-SaW 

o* 

' 1 - 



ACCESS OF THE DATA DM THE 2 TAPES.' 

RVAL 

DC 

F'O* 

temporary storage area 

->* 



FOR CONTENTS OF REG. R G 

HAD 1 

DC 

F » 0 ' 

HILL CONTAIN NUMBER OF NON-7.ERO 




RADIANCE VALUES ENCOUNTERED FOR A 

*** 



PARTICULAR WAVELENGTH 

HAH? 

DC 

F'O' 

DISP L A CE N E M T V A 1. 1 1 F R IP. S T OR IN G 

• ^ 



I N TO ARRAY TEi'P 

ITIi-r- 

DC 

2F 'O ' 

TIDE STORAGE FOR MONTH, DAY AMD 

J* 1 ' 



YEAR , ( IN HALF U DRDS ) , FOR USE BY 

V 



SUBROUTINE FRA TI'M 

LFi'iRTH 

DC 

F ' 1AA0 * 

LENGTH DF OUTPUT ARRAY IN BYTES 

MhLDCK 

DC 

F » - 1 

INI TI AL I 7 A T I 'DM OF vUDHER OF BLOCKS M 

*■ f A 



LEFT- FOR PROCESSING t INDICATES 

* 



NONE WERE DONE AS Y ET- F I H ST ENTRY 

m cniMf) 

DC 

F ' 0 ' ; 

TEMPORARY STORAGE FOR DC DM!) - CALL 




■ 3 

j 


i 

i 
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m m 


ni j i 


? N T K'TR 


pnsAB 




pnsSAVE nc 


p t AIM 


R L SAV p 


SAVE 


SLIN 


SE'iiifr-: r.E variahi.h hjrntshft) ry this 

SURR4 UJT IMF. 

F 1 (" HILL CONTAIN i '! I RFk Of- L FASUR t i *Fi. i S 

FOUND n-M I /A P I: - SUi-Vl.Tl-l' 1 H T A P H 
I- 1 ?(.' . 17 ,1 8 , 1 9, 1 V . ?(> , 1 / , 1 h , } H , 1 H 17 . 1 A • • 

i.'U ih ~R OF RAP I AMOK R I* R'hEMCF S TO hr 
FOUND UPON EACH ChaMILP OF TAPr 
KEFIRFNCE - FIRST /(l DLi A, 13 ON k, 
ETC. 

F • 1 ?4 , 164 174 * 1 64, 704, ?44 , 7 A A , 3 74 » 7 44 , ?H4 , 3 ?4 • 

F 1 4 » A A i HA.* A* 4 A* h4 , 5?4 * 364 * 5 74 , 444 1 
F 1 ' 64 , 404 , 3 64 , 4 0 4 , 4 4 4 , 4 H 4 , 4 4 4,484* 

FIVES DI SPL ACFFF-VT FRllH 
RFf;I Y'.;T m ( ; op DAJ A A LOCK 
TP RAP I AIMC E DATA 14' ORDER 
F ' 76? • 76? . HO? * ho? ,7?? , 72?, 9??, V??, 84? , 84? ' 

F ' 88? , 88? ' 

GIVES DISPLACEMENTS TO 
HAVE LENGTH DATA IN OR HER 
ON THE TOO TAPES 
IT SHOULD kE HfiTEP THAT IN 
TH I S AMD IN PHI HTk , OOP 
ENTRIES REFER TO TAPE A 
•K'HI LB EVEN ONES R E FER T 0 
TAPE B 

F ' 0 1 INITIALIZATION OF VALUE OF INDEX TO 

ACCESS PAT 

4F • 0 ' TEMPORARY STORAGE FOR 

POINTING ANGLES DERIVED 
IN SUBROUTINE ZENPTN 

F'O' TEMPORARY STORAGE FOR REGISTER RL, 

( IT IS USED ELSEWHERE) 

1 H F 1 0 • SAVE AREA FOR LINKAGE 


4F ' 0 ' 


1 8 F ' 0 


F 1 7 1 6 
F * 74 H 
I- • 70 6 
F '780 
F ' 796 
F '780 
F ' 7 9 6 


, 7?4 * 73? , 716, 7?4 , 73? , 740 , 748 ,736, 740 ' 

, 786 ,69? , 700,7 08, 69?, 700, 708, 79 67*14 1 
, 804. 780, 788,796 , 8p4 ,780 , 7*8 , 7 ( -6,KH4 1 
, 78k , 796,804,780, 788 , 796 , 804, 780 , 788 ' 
,804 f ( h 0 « 78 8 , 796 ? 8 (14, 7 8 0,7 88 ,79 A , 8 04 ' 
,7 88 , 796 , 8 04, 7 8 0 , 78 8 ,796 ,804,780, 788 T 
, 804, 780 ,788 , 7:80 , 788 1 ; 

GIVES DISPLACE? ENT IN PATH 
TO CALCULATED SLOPE AMP 
INTERCEPT V A HIES FOR 
RADIANCE DATA IN ORDER 


n 
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TR-p * 


31- « n i 


!>C 


/h^ith m; F'o* 

* 

V 


T l. ■ : PI K A H Y s Y IK A / . I 0 H C A 1. Cl Jl. A I CD 
V'AI.UP S Of « All I flirt A VhK/u; J \i\ 

l’l C- PI i S’. S 

TFOPOHAkY .STORAGE flirt VaI.UF: 
l 'l / H ITH A - GLY ( StJu ) l)l:H I Vfc!) 

PRISM SIKKUH'i I Jh /tii 'PTC 


V 


S T f J R A f i F; - 




HA 1 H 

PS 

3M1F 

OUTPUT ARRAY 

OF HOC SERF 

EPIKG OAT a 

' 1 * 



NEE PEP For pr 

nCFSSl. G u 

f * K {f 0 1 1 J . A 1 < 

OATHS 

ns 


OUTPUT AK < A Y 

UF HPGHLAK 

OAT A 




10 ICO WILL BE 

PUT OVTU 

I - f y 


* T A P F P. Y Sl.lHK.0UT J Ml: Wrt ITT T 

* kf- Al.SU E'HI I VAL F>:CE PATHS ADD tPATU* SO THAT WHEN 'PASSED 

* HY CAI.L TO SUB H GUT IMF WuITIT, HALF WORD VALUES MAY HE USED 

■J* 

*r* 

I hath? Fiui P ATHS 


If- Mi 

// FXFC L 1 NK GM » R E G 1 DM . (if) = 2 0 f ) K 

//* LIMIT h IS THE DEBUG AMO GENE K A L I- ESSAGH UNIT Oil PRINTER 
//* U M I T 9 CONTAINS THE LISTING UF THE YEW TAPE'S CONTENTS 

//* (IT IS (OF FI MED AS A PRINTER UNIT ALSO) 

//* UNIT 12 IS THE OUTPUT UNIT FOR THE NEW TAPE 

//* TP191A IS THE INPUT DATA TAPE OF FOR Pi 1 A ' 

TP191B IS THE INPUT DAT a TAPE OF FORM • B • 

//GO.PTOAFOO] DP SYS OUT =A » PCB = ( RECFM- VRA , LREC L = 137 » RLKS 17. E = 7 HA 5 ) , 

// S PACP = ( CYL *(7*3) ) 

//GO. FTOPFOni no SYSOUT=A, PCB = (KECFM=VBA, LRECL=137* RLKS 1 / E=726T> ) , 

// SPACP=(CYL , ( 1 r i,S) ) 

/ / G 0 . H T } 2 F 0 0 1 f) D UNIT- ( 2400-y , ,PFF E R ) , D C R = ( R E C F M = V R S , 

// L PP Cl. = 17 9 A i BLKS I / E=3 0536 * DEN = 3 ) * L ARE L= ( *Rl.P) , 

// VOI. = St'R = PU' ! f- Y 

/ / g ( i . t p t y i a n p 1 1 mi t=24oo- y , n c b = < « ecf h -u » r l k s i / E = 2 5 2 n i * l a b e l = ( , b i pi, 

/ / \/oi. = SFR = I.O003 

//GO . I PI y IB; on UMI T = 240r>-y , PCR- ( RECFM=U* RlKST / E=2520 ) * LAB EL = ( , BLP ) , 

// vi 1 1_ = s F R = i_ ooO A 

//GO. SYSUPUNP DP SYSUUT=A 

//GO. DA TAB OP * 

l.o OB A . . . 

. FALSF. 



.HA|. SH . 


// I- v C, 

// h y i • c 
/ s* 

/’•' 

/'" 

/* 

/-•• 

/-:• 

/-" 

/* 


MOT I H Y i MUCH “ALL . S * 
wfJTTrYt f ! Of: = A I . L * M S (• 


« . i.aiv i <; {,(5 m j i..c i >; ' 
' l.-'U ii.jiVH 1 


ffcPRODUCIBILITy OF THE 
wIGlNAL PAGE IS POOR 
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//JJRMJM19? JOB ( S 1 0 1 3 2 h 0 4 0 1 T , 1. 0 0 3 .6 0 , H 0 1 H 0 1 ) , H 1 6 , M S G l E V F. L = 1 
//* TFl SPATE READ AMD LIST S-19? TAPES 

// EXEC FORTRANH , PAR M = • OPT-?., E'RCD I C, 1. 1 ST , I D MAP , XRE F ' , R EG I ON = 22 5K 
//SOURCE. SYS IN DD * 

C 

C THIS PROGRAM WAS WRITTEN BY M . MACK OF CSC FDR TASK 092, 

C ( SKYLAR ) . UNDER CONTRACT NAS-5-11999 IN FEBRUARY , 1974. 

C IT UTILIZES SUBROUTINE RD192 TO READ S-192 TAPES AND ♦ IF 

C DESIRED, PRINT THEIR CONTENTS BEFORE RETURNING CONTROL 

C TO THIS MAIN OR CALLING PROGRAM 

C ' 

C NVAL IS AN INDICATOR ARRAY - 

C 1. ITS FIRST ENTRY IS NCOND - 

C IF 0, IT INDICATES REGULAR DATA WAS PRESENT 

C IF 1, DATA WAS ERRONEOUS 

C IF 2, AN END OF FILE WAS ENCOUNTERED 

C 2. SECOND ENTRY IS NHOUS - 

C IF 0, NO HOUSEKEEPING DATA IS PRINTED 

C IF 1, HOUSEKEEPING DATA IS PRINTED 

C 3. THIRD ENTRY IS NSCAN - 

C IF 0 , NO SCAN DATA IS PRINTED 

C IF 1, ALL SCAN DATA IS PRINTED 

C \ ’ 

C THE REQUESTS OF THE USER CONCERNING PRINTOUT 

C (SETTING OF VARIABLES NHOUS AND NSCAN), ARE 

C TRANSMITTED VIA DAT A 5 NAKEL 1ST, ( ASK) . THE 

C LOGICAL INPUTS TO IT ARE NHOUST AND NSC ANT. 

C IF SET TO TRUE, THE ASSOCIATED INTEGER IS 

C SET TO 1 AND DATA IS PRINTED. THE DEFAULT 

C VALUE IS FALSE . 

c ' ... ' ; ■ t-. : 

LOGICAL NHOUST / .FALSE. / 

LOGICAL NSC ANT / .FALSE. 7 
DIMENSION SC AN ( 1093 ) , N V A L (3) 

EQUIVALENCE ( N V A (. ( 1 ), NCOND) , ( NVAL ( 2) , NHOUS ) ,( NVAL ( 3 ), NSCAN ) 
DATA NVAL / 0 , 0 , 0/ 

NAMELIST /ASK/ NHOUST , NSCANT 

C 

RFAD( 5, ASK ) 

1F( NHOUST )NH0US=1 
I F ( NSCANT ) NSC AN = 1 
10 CONTINUE 

CALL RD19?( SCAN, NVAL ) 

IF( NCOND. EQ.O) GO TO 10 
IF (NCOND. EQ. 1 ) CALL ERR192I 1 ) 
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RFTIJRN 

END 

// EXEC AS MG 
//SOURCE# SYS I N DD * 

// EXEC 1. 1 NKGO, REG I ON. G0=22OK 
//L INK. OBJECT DD * 

IN C L U OF IDA D L I B ( Z B M J M R 9 2 ) 

//* LDADt. JR ZBMJMR9? CONTAINS READ PROGRAMS FOR S-192 
//* UNIT 6 IS THE DEBUG AND GENERAL MESSAGE UNIT' ON PRINTER 
//* UNIT 9 CONTAINS THE LISTING OF THE TAPE CONTENTS 

//* TP 1 9? IS THE INPUT DATA TAPE 


/ /GO . FTD6 FOO 1 DD S V S OUT = A , DC B = ( R ECFM = V B A , LR ECL = 1 37 , BL KS I ZE= 7265 ) , 

// SPACF=(CYL» (7,3)) 

/ /GO . FT09F00 1 DD S YS OUT = A , DC B= ( RECFH = V B A , LR ECL = 1 37 , BI.KS I ZE = 7265 ) , 

// SPACEMCYL, ( 15,5) ) 

/ /GO . TP 192 DD UN I T =2400-9 , DCS- ( RECFM = U » BLKS I Z E = 32000 ) » LABEL = ( ,BLP) , 
// V0L = SER= L004 5 
/ /GO . SYSUDUMP DD SYSOUT = A 


//G0.DATA5 DD * 

SASK 

NHOUST=. TRUE. , NSC ANT=. TRUE. , 
SEND 


// EXEC NOTIFY, MODE “ALL » MSG= 'JOB IS COMPLETE' 




///RA.MR'O? j'nu ( SI 01 1 , 1 . 00*00 ,001 HO). ) . R 1 h \%J\ 

//■■,■ THTSOATI- l.ni.lH 19? CKC AT 11 tv OF LflAHUH /OH Jf-K 9? II 

// I-XI-C FORTRANH, PARH= • OPT=? , L l ST , XREF , I D,OAP , EBCDIC ‘ i f 

//soorcf.sysin fm - jj,| 

SUBROUTINE ERR 1 -'? ( M ) 

r. SKY I. AH , UNDER CC«MTM ACT k’ A S - S — 1 1 9 V V IM FEBRUARY, 1974: IT IS j* 

C UTILIZED HY R9?, THE MATH OR DRIVER PROGRAM, ID PRINT ERROR 

C THIS SUBROUT I M-E HAS WRITTEN HY M» MACK' OF C. SC FOR TASK 092 » ll ' 

C OR FNP OF FI Lh MESSAGES REQUIRED Tk THF READING OF S-192 TAPES. 7 

c ; ■' ■' 7 

C FORMATS ’ i : | 

C '■ . - ■ ■ . . 

?000 FORMAT! IHOt'FRROR ENCOUNTERED IN READING S-19? TAPFS - ABEND ', U| > 

1 'CALLED TO FACILITATE LOCATION OF PROBLEM'/) 

2100 FORMAT ( 1 HO , 'F('it) OF FILE ENCOUNTERED UPON READING S-192 '» 

1 'TAPE - PROGRAM TERMINATES NORMALLY'/) 

c H 

c ' • ; . ■ ^ 'i4 R 

GO TO ( 1 0,20 ) » N : ! 

10 CONTINUE 

C .. ‘ ■ : k! : 

C ERROR ENCOUNTERED IN READING TAPE - CALL ABEND 

C 

WRITE (A, 2000) - 

CALL ABEND : S 

20 CONTINUE . ^ 4 

c 

C END OF FILE ENCOUNTERED 

C 

■ WRITE (A ,2 100) 

RETURN -i 
END 

SUB R OU T I ME PR I NT H ( HOU S E K , I HO U S , I H0US2 , LHO US ) 

c 7 F : 

C THIS SUBROUTINE HAS WRITTEN BY M.HACK OF CSC FOR 

C TASK 09? , SRYLAh , UNDER CONTRACT NAS-5- 11999 I N 

C FEBRUARY, 1974. IT IS CALLED BY ASSEMBLY LANGUAGE 

C SUBROUTINE ' RD 1 92 ' TO PRINT HOUSEKEEPING DATA, (IF 

C DESIRED BY SC I ENT I STS ) . 

C THF CALL SEQUENCE IS CALL PRTMTH ( HFHISEK » IHOUS . I HOIJS? , LHOUS ) i 

C WHERE HOUSER I S A REAL- 4 ARRAY OF HOUSEK EEP I MG DATA. IHOIIS IS ; 

C JHF I NT EGER *4 FORM OF TOE SAME ARRAY, THOUS? IS THF INTEGER-? 

C FOB v, np THE SAFE ARRAY AND LHIIIJS IS THF LOGICAL-! FORM OF A 

c THF SAME ARRAY. CALI. SEQUENCE IN THE ASSEMBLY LANGUAGE PROGRAM , 7 '7 
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'•'OH n p» CALI. PR I A'T.H ( H0I1SEK .HLMISLK , HOI JSFK , I UIOSFK ) . 

THE k FA S FIN E uk THIS REPr-TIT in;-! IS THAT SOME ( ) ’[ A is R F A!.*4» 

IHTHGhkv.4,Sl’fK INITGEK*2 AN.) SON- I.! UN CAL -l . THIS aI.LOI'S 

accfss t H u nr- all tmf data in this routine. 

IW n K P F; R TO Access THAT HAT A. 

ALSO t C AK'Y VALUES I M THE ARRAY HAVE CRAM I CCS EX PL A I ."tin 
1W THE OESCRTPTIOV np J ARE CONTENT SUPPL I f;H BY HOUSTON. 

IN HR DEH Tfl A L L E V 1 A T I- THE 'PACE TURNING' THAT WOULD 
HE KEOUIReO TO 'INTERPRET ' VALUES, LOGICAL HAT A 
( H H C 0 T C ) ARRAYS ARE SET UP C 0 » T A I M I -!G THE A P I- R U P R I A T E 
HESSAfif-S, AND THESE, HOT THE I Hi) I GATORS', WILL BE 
PRINTED 


REAL "-4 HOUSER ( 6515 ) ,CLSL (A) tCOLSEL! 4,3 ) tPROCI 3) , PROCES ( 3 * 2) , 
1TRUNCA ( 3 ) * I HOUS (A55) , SCOT ( 2 , 2 ) , SCO! 2 ) IMP DEV ! 2 , 2 ) , I fv D ( 2 ) , I H F ( 4 ) 
2 IMF HR Ml 4,4 ) , C A " ( 2 ) , C AMR ( 2*2) • TYPEDT ( 4,2), TYPED! 4) , CAL SRC ( 2 ) , 

3 DAT I HD ( A, 2 ) * U AJO ( 6 ) , COLORS! 3,4) , COLOR! 3 ) , TRANS ! W) 


DATA 
DATA 
DATA 
1 * M 
DATA 


I 


' M ' , 

, 'ACT I ' 

i 


' , 'BLUE • 

/ ' HU 


' V E 

i 


LOGICAL”! Li I DUS ( 2A20) 

INTEGER*? I HOUS 2 ( 1310) 

DATA H 0 P G /O/ 

CAL S EC / ' I. OW ' , ' H I GH ' / 

CAMR / » 70 i*V ' , ' f*i ','5 IN 
COLORS/ ' NOT 
' , ' 

COLS EL 

1 ' ON ED' . ' COL ' , 'OR 
DATA DAT I ND / ' VIDE ' * ' 0 
1 ' NN.EI. ' , VIDE ' , ' 0 OR ' , ' DF.RE » , ' D 
DATA IMEflRM / ' SING' , ' l.E I ' 

1 'LAY ' , ' I MAG* , 'ES 
2 'OFFS ' . ' FT I ' , ' MAGE • 

DATA 1VPDEV / ' <-> 

DATA PROCES / ' SERI ' 

] ' NT L Y ' / 

DATA SC NT / ' L IN'E ' , ' AR 
DATA TRANS / • I 1 M ' , ' E ALLS ' 


CH 


' / 
i , 


/ 


' HARE ' t ' 


' , 'ASS I ' * 

' , ' ' / 

BY ' , ' CHA ' , 

1 PIX ' , 'EL '/ 
' , ' OVER ' , 


' S 


/ 

•HOT 


' / 


, ' THED' / 


ACT '» * 


ive 


* UR RE • 


« 0 M ' 


1 


NOT',' ACT', 'IVE)'/ 


D A T A T R ONIC A / ' LOW 
DATA TYRFDT /'RAW 
1 ' ESSE • , 'D DA ' , 'TA '/ 


•* 'PR DC 


' , 'GREE ' 


K XZ& 


c . formats 

c 

c 


7m: 







2000 forma t ( i hi ,5ox, 'hdhsfkffp jog data - skylab 

1 1 X,h?v, ' PAGF- ' , I •(/ ) 

?'Wo fmr.yai ( tho,3x, 'gonpu r img system id ',ka4,iox, 

1 * T AMF 1. 1 R R A k Y ID 5 A4, MOX , ' SENSOR ID ' , '->AA// .IX,] X » 

2 ’DATE 1 1 1- TAPE GENERATION NAS 1 ,313,4X, « T A P R SEOOENCB ID 1 , 

•3 1-3't 4.X ,.:»•« I S/S I ON YD. « , 13, AX, 'SITE ' , 13, AX, ‘(.THE • , I A , A>; , 

A 'RUM ' , T 3 , A X , ' HKh IT ' , 1 A///, IX . 3 7 X , ' TIDE OF FIRST SCAD' , 

3 ' TW THIS jrm ' ,313, 2X, 313, 2X, 15/7) 

.2 3 00 FORMAT ( IHDiApx. ' C H A N M ELS ACTIVE' , ) X , 9 A A / / , 1 X , 3 A X , 1 61 A/ , 

1 IX, 3 AX . 1 6 T A/ . 1 X , 3 AX , 1 A I A / , I X , BAX , 1 A I A/ / , 1 X , ° X , 

3 ' P ROC F SS I N G FI. AD I .E. ' ,4A4,9X, ',MD. ACTIVE' , 

• 3 • CHANNELS ' , T3,e>X, MTS IN A PICTURE FEE MEM • , 

A I?//, IX, RX, 'START ADDRESS OF VIDEO DATA WITH IN SCAM ' , 

5 IS, ] 5X , ' START ADDRESS OF FIRST CAL I SR AT I DM AREA WITH IN SCAM 
A I 5//, I X ,37X , ' Tin, VIDEO ELEMENTS PER SCAM WITHIN A SI MOLE ' , 
7 ' CHANNEL ' , I 13/ ) 

2200 FORMAT! TH0,1BX, 'NO. OF CALIBRATION ELEMENTS IN THE FIRST ', 

1 'CALIBRATION AREA NT THIN THE SCAN IN A SI MOLE CHANNEL ' , 

2 157// , IX, 'PHYSICAL RECORD ST 1 E (BYT F S’) ' , I 5 , B X , 

3 ‘WO. OF CHANNELS PER PHYSICAL RECORD ' , 13, BX, 'MO. OF », 

4 'PHYSICAL RECORDS PER SCAM PER CHANNEL ',13//, IX, 

5 TAX, 'NO. OF RECORDS TO MAKE A COMPLETE DATA SET ',13, 

6 14X, ' LENGTH OF THE ANCILLARY BLOCK ( BYTES ) ' , I 5//, IX, 

7 10X , ' DATA ORDER INDICATOR ! , I 2 , ' , I . F. ' , ft A 4 , 1 OX , 

•8 'START PIXEL NO. ' . 15, I OX, ' STOP PIXEL NO. * , 15//, 

9 IX, 9X, 'OFFSET CONSTANT ' , I 5 » 7X , ' WORD SIZE OF GENERATING', 

A ' COP PI ITER ' ,I5,7X, 'NO. OF DATA SETS PER PHYSICAL RECORD ', 
7 B: 15/) 

2 4 0 0 F OR M A T ( I HO , 54 X , • - - C ON V 6 R S 1 0 N FA C T 0 R S — '//, IX, 'CHANNEL' , 

T3X,' INTERCEPT COMPONENTS », BX , ' INTERCEPT ' ,7X,» SLOPE ', 

2 ' COMPONENTS ' vRX, 'SLOPE' , 1 IX, • COLOR CODE ' , 3X, 

3 'SCALE I N FORM AT T ON ' / / ) 

2500 FORMAT ( 1 H ,2X, 12, 1 . ' , 2X , 5X VI B , 4X , 15 , B X , F 1 4 . 7 , B X , 

1 T 6. 2X. T 5 , .5 X . E 1 4 . 7 , 4 X , 3 A4 . 11 X , I 3,7X ! 

2 BOO FORMAT ( ] HO , 54 X . "-'AVE LENGTH OF EACH CHANNEL ' / , IX, 5X, ' CHANNEL ' 

1 ' NO. ' . 5 X , ' START IMG WAVELENGTH ' ,5X, ' END I NG t < A VE L ENGTH • , 

2 B X , » C DAMN F L NO,'., 5 X , ' S T A R T I MG w AVELENGTH ' , 5X, 

3 ' FNO TNG WAVE LENGTH • / / ) 

2700 FORMAT-: 1H ,9X, 13. 15X,kAl, 15X,8A1, 1BX, 13, 1 5 X , H A 1 * 1 3 X , B A 1 , 4 X ) 

2 boo format ( i-ho, 'start address of second calib. area within «, 

1 'SCAN ' , 1 5 , 5X , ' MO . OF CALIB. ELEMENTS IN SECOND CALIB. ', 

2 'AREA IN SCAN IN ONE CHANNEL ' , I 5 // , 1 X , 5 1 X , 


C -6 REP ROD UCiBILlTY OF THB 
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:>, • cai. iKkATini' 1 sutwcE i on i r; ator- • / , i x , m x , • f i rst • , aa/, 

'<■ »Sr-CD«f) * ,A4//, ] X. IPX, 'i'll. (", H i\ MU I : I. S ff f- 1 1-* S T • ♦ 

5 'PHYSICAL RFC. Oh MAT A SIT ' , I 3 , 1 2X , ' TOT 41. HI, OF ', 

A ' BYTES PER S 0 ft ‘v P F I ! OHA'^FI. ',15/) 

?POO F f -R i A T ( 1 1 to , A X , 1 H 1 X l: L SKIP FACTOR » , I 3 . 5X , ' SCAM SKIP FACTOR 
1 13, 5X, 'TOTAL •••10, OF SC/VI I.IM&S P!:R FRAME « , I 5, 5X, 

? ' ALTITUDE IK MFTFrS 1 , 14//, IK, TAX, • MR HUH) SPEED 1 , 

3 ' ( ! F T F M. S / S F : C , ) ',14, 1. 3 X , ' S 0 A N T Y P H ' , 2 A 4 , l 3 X , 

4 'AMiU.h f)P A K ( ( npop rf- S ) ' , 13//, 1 X, 7] X, 'CA s I- R A ' ♦ ?A4, POX, 

5 'O' PUT OFA/rCf: 1 , ?A4, X()X , ' TRLLYCATI DO 1 ,A4//, 1 X. 5 A X , 

• A ' CHAWMFl. S RpDtlFSTFn-' /, 1.X, 1*X ,371 3/, IX, 1KX, 3713/ ) 

?P‘>0 FORMAT (1 HO , * PROCESS! 00 VOuc ' , 3 A 4// , ] X , SSX , 

1 'OVFP.I AY IMAGE F AC Tr'KS - ■ / , 1 X , 33 T 4/ , 1 X , 3?, 1 4/7 , IX, 7X, 

7 'Cnum SGLfcT/r ' ,2X,4AA,4X, ' IMAGE FORMAT ' , 3 X , 4A4, 4X , 

3 1 R F P 1: A T OF PIXELS PFK SC AO 1 , 13, AX , 'REPEAT OF SCAN ', 

4 T 3/7 , 1 X , ' PARTIAL SCAN-PROM PIXEL ',15, ' TO PIXEL ' , 

5 I 5 , ' , ( l F ZEROS , TOTAL SCAN-) ' // , IX , 1 5X , 

A ' SENSOR SCAM RATE IiV SCAOS/SEC. ',15,1 5X , ' PIXEL SIZE' ' ,15, 
7 15X,'A\GLE OF OR I FT ' , FA . 2/ , I X , 32X , ' 1 TITLE : ' , AOA 1 / ) 

C 

C 

C FIRST, I MOT CES FOR EBCDIC ' EXP-LA -V A T I D M S ' ARE SET UP BASED 

C UPON I MO I C AT (JR VALUES POUND IN 0(1 IJS EKE EP I NO AKRy&Y. 

C 

c 

c ID IS THE INDICATOR EUR THE TYPE OF DATA FOUNn ON TAPE 

C 

J D=I HUMS? < 111 > + l 
DO 10 1=1,4 

in T Y P F D ( I. ) = T Y P F P T ( I. , ID) 

C 

C If) IS THE DATA ORDER INDICATOR 

C 

10= I MUDS 2 ( 173 ) + l 
on ?n i. = 1,6 

20 DATO ( l_ ) =0 AT 1 ND ( L , 1 0 ) 

C 

c ICAO IS THE INDICATOR FOR THE CAMERA USED 

C : : / . 7 

I C A M = M-IIHIS2( 1 03R ) + l 
CAM 1 )=CAMR ( 1. , I CAM) 

C A ’ ( 2 )=CAMR(?, I CAM ) 

C ' ■ ; : : 

C I SCT IS THE INDICATOR OF SCAM TYPE 

C ■ ■ ■ ' v : :L ; ' ; 7 : ; /: : . : ' . 
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I sm = 1 linns? ( 1036)+) 
soi ( i ) = so;t ( 1 , r sr; r ) 
SC«v( 2 ) = m;hT(? ♦ [SC I ) 


IMP IS THF INDICATOR IIP IMF INPUT DEVICE 

I l'ip= 1 PIOUS 2 ( 10 3V) + 1 
IM0( 1 )-TNPOhV( 1 , I i,l ) 

IND( ? )-. r MPOEVT 2* I MP ) 

ITKIINC IS THE I MO I CAT OK DP THE TRUNCATION HR THUD 

ITKW.vO I HMJS2 ( 1040 1 + 1 
T K U iM C = f H IJ N C A ( I T K U NC ) 

C IPRCS IS THE I NO I C AT OK OF THE PROCESSING METHOD USED 

C 

I PRCS= 1 HOUS? ( 110PI+1 
no 30 l.. = l ,3 

30 PRflCI L )=PROCES( L, IPRCS) 

G 

C ICS IS THE INDICATOR OF THE COLOR SELECTED 

C - . 

ICS=1HUUS2< 1171 ) + l 
00401=1,4 

40 CLSLI L )=COLSEL ( L , ICS ) 

' IFO IS THE INDICATOR FOR IMAGE INFORMATION 

1F0=IH(U1S?( 1172 ) + l 
DO 40 L-l ,4 

SO 1 MF ( L ) = T M FOR M ( L * T FO ) 


THE CALIBRATION SOURCE INDICATOR WAS FORMED MY 
A MUTING TWO INDICATOR VALUES IN ONE HALF WORD. HENCE 
THE HALF WORD CAN HAVE VALUES OF 0,1,236 OR 257. 

OUR LOW CALIBRATION AND HIGH CALIBRATION SOURCE 
I H 01 GATORS ARE SET BASED U P 0 N T H I S FA C T . 


I F ( THIHJS? ( 102 7 ) . FO. 

IF ( I W00S2 ( 1027) .FO. 
IF ( T FtfUiSP ( 102 7 ) . CO. 
IFUH0US2 ( 1027 ) .EO. 
I F f I MOOS 2 ( 102 7 ) .EO. 


0) CALI =CAL SRC ( 1 ) 

0) CAL 2 = CAL SRC (1 1 

1) CAL1=CALSRC ( 2 ) 
1 ) CAL2-CALSkC( l ) 

256) CAI.1 = GAL. SRC ( 1 ) 



i 
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TI'-( 1 1 mi'S ? ( low \ .hn. 
I fM I Hut IS? ( lup’f ) .?;(>. 

TIM M.nUSP( 1 05 7 ) . i.n . 


) C A I ^aC.ALSKC(X) 
557 ) 'CAl.l -CAI.SM. ( V ) 
567) CAL5-CALSBC( ?. ) 


BEGIN LISTING Ur Hi III SI- !\E CP I NG DATA UN N£W PAGE 
wnp f;=NupR+ 1 

write ( w, 5 now ) nhpg 

HR J TE ( g ,pnsn ) ( MOUSEK ( 1.7.) ,LZ = 1 , IS), 

1 ( n-im-JS? ( L7 ) • L 1 = 3 1» 46) 

WRITE ( 9,5100 ) TRANS, ( I HOUS5 ( L / ) , LZ=47, 1 11 ) , TYPED, 
1 ( THn'JS? ( LZ ) • L/=115. DM 

tiH I HM ”,7700) ( T Hfil I S ? ( 17) ,L/ = 117, 153) , DAT!' , 

1 ( J Hi i US 2 ( LZ) , L 7 = 1? A- , IPS ) , ( I HODS 7 ( LZ ) , U = 5 10 , *5] 1 ) , 

5 I PIOUS ? ( 1 07.4 ) 


CONTINUE DATA, BUT START ON MEN PAGE 

MPPG=NOPG+T 

WRITE ( m , 5000) NO P G 

WRITE! 9 ,5400 ) 

SET UP INDICES USED IN LOOP WHICH LISTS SLOPES, 
INTERCEPTS, COLORS AND SCALE VALUES. 

II AND I? REFERENCE INTERCEPT COMPONENTS 
13 AND 14 REFERENCE SLOPE COMPONENTS . 

15 RFFFREMCFS- CALCULATED INTERCEPT VALUES 

16 REFERENCES CALCULATED SLOPE VALUES. 

17 REFERENCES CORRESPOND ING COLOR VALUES 
TR REFERENCES CORRESPONDING SCALE VALUES 


THE ORDER OF THE CHANNEL. CHANNELS 14 AND 15 UN THE TAPE 
ARE NOT ACTIVE. AS THERE ARE 22. ON THE TAPE, THERE ARE 20 ACTIVE 
THE REASON FOR PRINTING THEM THIS WAY WAS THAT THE 
NOTE M- ALTHOUGH LISTED AS 'CHANNEL NO. ' , IT IS ACTUALLY 
•CHANNEL' NO. GIVEN THEM BY HOUSTON DOES NOT CORRESPOND TO 
THE •CHANNEL NO. 'BY WHICH THE SCIENTISTS REFERENCE 
THEM . ( ACCORDING THORS. CURRAN AND CURB OF GSFC). 

IT THEREFORE SEEMED USELESS TO RENUMBER THEM HERE BY HOUSTON'S 
.scheme;: : ; ;■ ■/ mVn; ", 

ALSO. ONLY ACTIVE CHANNEL DATA IS LISTED SINCE NON- 
ACTIVE DATA SHOULD BE '7EK0 ANYWAY i 
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I Pis AO A 

I 7 = 3 HO • 

C NO ACT WILL HP MH. OF ACT I VP CHANNELS 

C 

MOACT = I HfiUS? { 3 1 ? ) 

r. 

nn 70 L« = ) tWOACT 
I 1 = 1 1+4 

i?=n + i 
i3=n +? 

14 = 13+1 
15=11 + ?. 

16=15+1 

17=17+2 

18=17+1 

I CLS = I HOUS? ( I 7 ) + 1 
DO 60 LT = l , 3 

60 COLOR ( LT ) =COLORS ( LT , 1 CLS ) • 

R I T E 5 9 , 2 5 0 0 ) LR , ( T H0US2 ( LX ) ,LX = I 1, 12) ,HOUS£K{ 15), 

1 ( IH01JS2 ( LX) .LX=T3, 14) , HOUSE K( 16 ) , COLOR , I HOUS? (I 8 ) 

70 CONTINUE 
C 

AGAIN, CONTINUE NEW DATA, BUT ON A NEW PAGE 

MnpG=NOPG+l 
WRITE (9, 2000) NOPG 
WRITE <9, 2600 ) 

HERE, WAVELENGTH LIMITS FOR EACH • CHANNEL '♦( I N 
ORDER AS GIVEN ON TAPE), ARE LISTED 

LDJ AND LD? ARE THE INDICES OF THE HINlAuM WAVELENGTH 
LD3 AND LD4 ARE THE INDICES OF THE MAXIMUM WAVELENGTH 

I.D1 = 991 

DO 80 LB 1 = 1,64, 2 
LD1=LD) +32 
LD2=Lm + 15 

L03=l.D? + 1 
LD4=I.D3+ 1 5 
LB?. = UU + 1 

WRITE (9, 2 700) l.Bl , ( LHOUSUZ ! , L2=LD1,LD2 ) ,LB2, 

1 < LH0UML7 ) , 1.7 =LD3 , LD4 ) 

80 CONTINUE 



'1»T 



T™ 


0 

(, 

C 


c: 

r, 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r, 

c 

c 


r.I I* 1 T T NIJF I. T ST I i H'i ( F DAT A . HU T 1 1 A Nf-V PAGE 

f. fipr,= --!ni->r; + i 

j !►-( ti . rood ) ’ 

'•'k IT!’ ( <4, '■>*()()) ( T HODS? ( I.X ) . LX = W?5 , HI? ft 1 , CAU , C A I, ? . 

1 ( lDnuS?(LX ) ,LX=10>R» lo?4) 

1-1 k IT!- ( <•>. ? 90 n ) I 1 Hi ms? ( LZ ) . L Z = 1 0?.|| , 1 1 ; 3 ? ) , INDUS ( M 7 ) , 

l t tint f s ? { t ( < ■?. fv) , s r ?! . t i v a i s ? ( i n 3 y ) , r. a n , 1 M ♦ > , Tri i *• i c , 

? ( THUDS? ( LZ ) . L/ = 1041. , l ] 1*4 ) 

I.*' P. T T F I' '<» .? 9 Fn) PRUC, ( I h 0 U S ? ( LX ) , l,x = ll()A. ] 170) , CLSL, 

1 T f-H- , ( U"UJS?( 1 . 7 ) ,!.X = 1 r/'-i.l 1 7k ) ,HDDSEK ( *5 90 ) , 

? ( IJ mi IS ( LZ ) .iJ-ZiM ,?4?0) 

RETURN TO CALLING PROGh AO 


R I- TURN 
FND 

subroutine 


PRiV TSC( SCAD, is C AN , I S CAN ? , I, SC A M ) 


THIS S UPROOT THE WAS WRITTEN BY M.MACK OF CSC FOR TASK. 04? 
( SKYLAR) UNOr-R CONTRACT NAS- 5 -U 999 IN FEBRUARY, ! 974 . 

TT WILL PRINT T HR SCAM ARRAY GF.NRR ATEO T N R FADING THE 
HOUSTON JSC GENERATED' S- 19 ? TAPES.' THIS SCAN INCLUDES 
DATA FROM THE ANCILLARY Hl.flCK AS WELL AS CALCULATED SCAM 
DATA FOR ONE SCAN IJMF FOR CINE CHANNEL. 

CALL OF THIS PROGRAM *y SIJRR OUT I NF R D 1 4 ? I S HE TERM IN ED 
BY USER SUPPLIED ARGUMENTS TO THAT PROGRAM. 

INPUT ARRAYS ARE ACTUALLY ALL THE SAME ARRAY, BUT ARE 
NECESSITATED BY THF EXISTENCE OF R EAL* 4 ,I NTEGEK* 4 , 
INTEGER*? AND LOGICAL*! DATA WITHIN THE SANE ARRAY. 

SINCE EailTVALENCIliG IS ILLEGAL WHEN DEALING WITH A 
PASSED ARRAY. ALL 'NAMES' ARE PASSED. ALSO, v' -'L 

VALUES APPEARING IN OTHER THAN REAL * 4 FORMS. ALSO, 

AS PRINTING OF MOST DATA CONTAINED IN THE ANCILLARY ' 
BLOCK FOR EVERY CHANNEL FOR EACH LINE 0001,0 WASTE " 

PAPER , (TOTS DATA RIM AILS CONSTANT FOR ALL CHANNELS 
FOR ONE LINE), ONLY PIXEL OR SCAN DATA IS PRINTED 
FOR ALL BUT THE FIRST CHANNEL. 

ALSU! EACH DATA PAGE PRINTED IS NUMBERED CONSFCOT I VFl Y , 

BY UTILTZ H'G VAR JAP.I.p <“DPG, ( INITIALIZED TO 0) . 


FORMATS 


7 V, 


HEPRODUClB‘l ; n'V i OK "" 


c-n ^omiTfAGE IS POOH 


?onn. FOR.' AT ( I 111 , ‘-AX , ' SKYl. AK S-l 9? D ATA ' / , I X , nl X , ' i-»AGF * , 1 ‘i / / ) 

P 1 DO (-1 iU< A 1 ( 1 MO , R H X , • -r,H/v ' :; F 1. ST Al liS - 1 / , V 1 X , 77 1 4/ , A J X , ' ( / FRO Mf A 
1 'Af.TJVf I.'HII. (• <:•.•!(- Hf-Ai'S NOT ACTIVE)'/) 

7700 FORMAT! 1 HO, '-“SPACECRAFT — ' / , 1 X » 3X , ' I. AT I TllDF ',13,' IlRfi. ', 


] 

T 4 , • 

L IN. 

1 

9 

T 4 

, ' (.) S L C 

• 

. 3X, • 

. 1 

DOG 

TTUDE 

',13,' 

? 

14,' 

OTM. 

1 

9 

14 

, ' ns fc 

• 

, 3 X , 'ROLL 

' , 

13,* n 

EG. • , 

3 

.14, ' 

MIN. 

1 

• 

14 

, ' OSL-C 

• 

//, IX , 

6X , 

' PI 

TCH ' , 

13, 

4 

' DFG 

. ' , 

I 4 

9 

1 ; 

IN. 

14, 

' MSEC 

. ' 

, A X 

, ' YAM 

' , 


13, ' 

D EG . 

1 

9 

14 

, ' MTM. 

i , 

14,' 0 

SEC 

. ' 

»AX, 


h 

1 7 C: W T JM i 

f T 


. ' 

nr-G. • 

, 14 

,' MIN 

. ' 

, 3 4 

, »■ OSF 

C. ' ) 


7 3 00 FORMAT ( i HD, S7X , ' — I HA. OR FOOTER I NT — ‘ / , IX , 8X, 

] • C E N T R OF FIRST PIXEL HAS ' , ' I. AT ITHtlF •, 

7 I 3 , • BEG. » , I 4 , ' ,v I V , ' , J 4 , i OSEC . ' , 

3 ' AND '•<. LONGITUDE ' . J 3 , ' DEG. ',14,' K I N . ', 

4 14,' "SEC. '/, IX, 7X , ' CENTER OF CENTER PIXEL HAS', 

5 ' LATITUDE *,13,' DEG. ',14,' f IV. ',14,' MSEC. 

6 • Aon w. LONG I TUG E * ,13, ' DEG. ',14,' MI>*. ',14, 

7 1 OS EC. • / , IX , ?>X, VCEMTFK OF LAST PIXEL HAS LATITUDE ', 

« 13, ' DFG. « . I 4 , ' I' TIM. • , 14, * OSEC* • , 

9 'AW w. LONGITUDE ',13,' PEG. ',14,' MIN. ',14, 

A ' OSEC. ' / ) 

?400 FORMAT (] HO, SX , ' HOT RLACKbODY TEMP ERA TOR E SENSOR A • • ', 

1 A 4 , • T-NTH DFG. K ' ,9X, ' COLn BLACK ROPY TEMPERATURE ' 

P. ' SEH SOP. "2A " ' , A4 , ' TENTH DFG. K ' /, IX, 13X, 

3 ' LAMP I CURREMT WONITriR ; ' ,A4, ' M1LLI AMPS ', 

4 T?X, ' REDUNDANT BIACKRODY TEMP. SENSOR ' ' 3 A ' ' ', 

5 A4 , ' TENTH DEG. K • / , 1 X , 1 2X , ' L AMP 7 CURRENT MONITOR 

6 A4, • MI LL I AMPS ' , 1 3 X , ' DETECTOR ARRA Y TEMP . SENSOR » ' A * ' ' , 

7 A4 , ' TENTH DEG* K ' / , IX , 1 3X , ' PR I MARY MI RROR TEMP . SENSOR ' 

8 A4, ' TENTH DFG. K ' , l?X, • SECONDARY MIRROR TEMP. SENSOR ', 

9 A4 , * T ENTH DEG. K ' ) 

2500 FORMAT ( l HO , I 2X , ' PRIMARY MIRROR TEMP. SENSOR ? '»A4, 

1 • TENTH DEG. K ' , 13X, 'ASPHERIC MIRROR TEMP. SENSOR * ,A4, 

?. * TENT" DEG. K '/ ,1 X , 4X ,' COVER TEMP. SENSOR ', A4, 

3 ' TEN ! H DEG. K ' ,4X, ' SCAN MOTOR TEMP. SENSOR ' , 

4 A4, ' TENTH DEG. K I 4X ,' COOLER MOTOR T EMP. ', 

5 A4 ♦ ' TENTH DFG. K ' / , 16X, 'SCANNER ELECTRONIC TEMP. ' , 

6 'SENSOR ' , A4 . ' TENTH DEG. K ' ,3.4X,' MONOCHROMATOR ' , 

7' TEMP. ' , A4, ' TENTH DEG. K ' / , 4 AX , ' DIGITAL ELECTRONIC ' , 

8 ' TEMP. ' , A 4 , ' TENTH DEG. K • ) 

? BOO FORMAT ( I HO , 1.DX, 'DEI ECTOR ARRAY TEMP. SENSOR ' ' B 1 ' ' , A 4, 

1 ' TENT" DEG. K ' , 31X, 'HOT BLACKBOOY TEMP* SENSOR > ' 2i, ' • ', 

7 A4.» TENTH n F G . K ' / , 1 X , RX , ' COLD BLACK BODY TEMP.', 

3 ' SENSOR '• ?i" ' ' , A 4 , ' TENTH DEG ♦ K ' , BX , 


O o o o o o 


r 



a • rco th; t pi.ackhmoy n riJ. si-sor * • -m « » ',a4, 
v ' tenth i»fg. i< • / , i x, vx, • sr.Af u,\f nri-SPT tine • , 

ft AA, • ' TP f, ‘TH 0 I C ROSE COWRS ' *7X , ' SCAM SHIF'l OH. AY FI. A I A ' . 2 X « AAA , 5X 
7 * A / A NOTH ( M-Ani n r; ) • . ]4, ' OF (A, ') 

2700.' POPPAT ( IHO, ax, '(vKitlliil) Vi- 1. -CITY I i « M ET HP S/SE(‘. . • « I *5 * 3 X f 

1 • ALT I TUDF T >\ f A f- | F * i S ' , I A . 3 X , ' I TRU IT A I. 1 NCI. T NA T I UN' , 

2 ' ArlGI. ' I ? * mi/VO'FK ARC SEC. MlO/1 

2 H on FORMAT ( 1 MO, 1 CHANNEL ',12,' OF A TOTAL OF ',12,' ACTIVE' , 

1 ' CHAT UHLS ' /, 1 X,22X, ‘1*1}. OF VIDEO HI. H ARMTS / SC Ad / C H A WHF I. *, 

? IS, 30X, ' I.J OF :vlir. ! F>i ' , 16//, 1. AX , ' Til- 1: '-'AS ' , 3 I A , 2 X , 3 1 3 , 7 X » I 5 , 

3 » OR 1 , 130,2X, •TF-VTHS OF *’ I L LI SECONDS INTO PAY'/) 

2900 FORMAT MUD, 'PIXEL V&1.UFS* (kAOJANOE UNITS A k F ', 

1 'WAT T S / 1 r * * * 2 / M 1 C ft t IN / S T E R ) - 1 / / ) 

2.95 0 FORMAT ( 1H , I 4 , ' . ' , 2 X , £ 1 4 . 7 , ftX , I 4 , ' . ' , 2X , j= ). 4 . 7 , OX , 


, 


1 14,'.' , 2 X , E 1 4 . Y ,.5 X , 14, ' . ' ,2X»E14.7 , 0 X , 14, ' , 2X, 

2 F14.7) 

C 

C 

c 

c 

INTEGER*? I SCAN? ( 1 ) 

LOGICAL'-:'! L S C A N ( 1 ) 

DIMENSION SCAN ( 1 ) , I SC AM 1 ) 

LI )G .1 CAL S C S M F ( 4 ) , S C S U F T ( 4,3 ) 

DATA ilOPG /O/ 

DATA NPRINT/O/ 

DATA SC SOFT / • MOVE ' , ' TO ' , ' LE FT ' , ' • , 

1 'NO S', 'III FT' ,' ',* ' , ' MOVE ' , ' TO • , 

2 ' R I GH ' , ' T ' / 

C 

CHECK WHETHER UR NOT THIS IS THE FIRST CHANNEL - IF 
IT IS NOT, SKIP PRINTOUT OF ANCILLARY TYPE DATA 




I MOD= I SC AN? ( 2 ) 

N P R I NT = f : PRINT + 1 

I F ( HO 0 ( N PR I NT , I HOI) ) .ME . 1 ) GO TO 10 

PRINT OUT ANCILLARY DATA - START ON NEW PAGE 

NOPG-MOPG-i-l 
WRITE I 9.200U) NOHG ; 

HR I TE ( w , 2 ] 00 ) ( I SCAN? ( LX) • LX ^15, 36) 

WR I TE ( 9 ,2200 ) ( I SCAN? ( LX ) ,LX=37, 34) ' 

WR I TE (9,2300) ( I SC AN 2 ( LX ) , LX =33 , 72 ) 


sssssk*® 



V 


— i Min i 1- 5 ?Bll«MTir^~ — 
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o o n o o o o o no n o o o o n 



C PET ERMI f'tfr S f . A k SHIFT DELAY FI. AT, I NO EX VALUE 

C 

isc=iscanc w)*?.. ' • : 

sc. HIM- ( i ) =sc shf rn,i sc ) 

SC SHF ( ? ) = SCSMR j? , I SC ) 

SC SHF ( 3 ) = SCS> in ( 5 , 1 SC. ) 

SCSHI-f A)=SCSHFT(4, ISC) .. 

WH I TE C u .2400 ) ( ISCAM(LX) ,|.X = 37 t44 ) | 

!,I R T IF ( H . 2 Son ) ( I SC. AH ( I, X ) » I X = 45 » 52 ) | 

WRJTE(n,?6nO ) ( ISCA-H I.X) ,I.Xa53t5Y) t SCSHFt ISCAMCSV) !1. 

WRITE! V.rmo) ( ISCAMC lx ) .LX= 60, A? ) . ?| 

C PIXEL DATA FOR ONE I. THE FOR ONE CHANNEL IS LISTED Ml 

10 CONTINUE I 

I 1 = -162 nil 

20 CONTINUE ;1 

MOPCS-MUPCV+l lj 

HR I TE ( F » 2000 ) NO PC • f 

VIRITFC 9.2BOO) ( I SC AN? C LX) , LX=1»4) ,( I SCAN? ( LX ) t LX = 6, 12 ) , ISCAN(Y) . !| 

WR I TF (Si * 2900 ) ‘I 

11=11 + 225 : > • - IE 

12=11+224 C 


NOTE - II AND 12 ARE THE LIMITS WITHIN THE PIXEL DATA 

WHICH WILL HE PRINTED ON ONE PAGE BEFORE STARTING A 
NEW PAGE. 

I F ( T1.LT.963) GO TO 30 
LAST OF BATA - LESS THAN 225 VALUES 
1 1 = 963 

I 2 = I SCA'- ? ( 3 ) +62 : 

30 cowtinue' c,:. : . 

HR ITE ( 0* 2950 ) U_X, SCAN ( LX ) , I.X= 1 1 , I 2 ) 


IF THE SECOND VALUE IS NOT THE LAST ONE IN THE ARK AY ♦( ISC AN? (3) 
+62 ) .THERE IS STILL MORE SCAN DATA TO BE PRINTED - GO TO 20 TO 
START A NEW PAGE 

IFCJ2.LT. ( IS0AN?(3)+6?) ) GO TO 20 

ACL SCAN DATA FOR ONE LINE FOR ONE CHANNEL HAS BEEN 






R FT URN 




. LISTED - 

RETURN 

END 

SUhROUT 1 ME HR; 


iWSCl 1 SCAN. I SCAN? ) 


THIS SUBR PtJT I OH WAS l-‘K 1 T 1 li'< BY M .MACK OF CSC UNDER CONTRACT 
NAS-B-11999 IN SEPTEMBER , 1974 FOR task 06? SKYLAK-.lt CONVERTS THE 
I NPUT TENTHS (IF NT L.I. l SEC. OWNS FROM MI DNIGHT TO HOOK MINUTE AND 
SECOND PLUS TENTHS OF MILLISECONDS. 


I*TF0FR*2 I SCAN? ( I, ) 

INTEGER* 4 I SCAN [ 1 ) 

I T I f" E - I S C A N ( 7 ) 

I SCAN? ( 9 ) = I T I M F/ 3600m) 00 
I T IM E = J T I ME- ( T SCAN? ( 9 >*36000000 ) 

I scam? ( io > = itt;- b/fiooooo 

IT IMF— 1 T I ME- ( J SCAN?! 10 >*600000) 

I SC AN? < 1 1 > = I T I ME/ 1 0000 

I SCAN? ( 1? ) = TTI ME- ( I SCAN? ( 11) * I 0000 ) 

RETURN 

END : 

// FXFC AS MG 
//SDURCF.SYSTN DD * 


THIS SUBROUTINE WAS WRITTEN BY M. MACK OF CSC FOR TASK 092, 
SKYLAB, UNDER CONTRACT NAS-5-1 1999 IN J ANUAR Y-F EBRUAR Y , 1974. 
TT 'READS S-192 DATA TAPES SUPPLIED BY HOUSTON JSC AMD 
PASSES VALUES BACK TO THE CALLING PROGRAM FOR FURTHER 
PROCESSING* 

THE CALL SEDUENCE IS RD 192 ( SCAN , NVA L ) WHERE 

SCAN WILL BE THE ARRAY OF SCAN DATA FOUND, (AFTER 

CONVERSION OF ITS VALUES TO ENGINEERING UNITS WITHIN 
THIS ROUTINE AND 


NVAI. IS THE ARRAY OF INDICATORS OF DIMENSION 


WHOSE 


FIRST ENTRY IS NCONO - IF n, DATA WHICH IS RETURNED 

WAS REGULAR ( GOOD ) DATA 
IF l, DATA WHICH IS RETURNED 
WAS ERRONEOUS DATA , ( AM 
ERROR OF SOME SORT WAS 
ENCOUNTERED) 

IF ?,. AN END DF FILE WAS 
ENCOUNTERED 

(VALUE DF NCONO IS SUPPLIED BY RD19?) 
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SECOND ENTRY IS MODUS 


THIRD .ENTRY IS NSC AN 


-IF O, NO MI: OF THE Hi'DSBK t;F:H INC 
DATA SHOULD IN- PRINTED 
IF 1, All OF ThF HOUSBKPFP INN DATA 
SHOULD TIE PR 1 NTFP 
( V A L U F OF NO OI LS IS USER SUP PL l FI) ) 
-IF 0, MOM? OF THF SCAM DATA SHOULD 
BE PRINTED 

IF 1, ALL OF THE SCAN DATA SHOULD 

rf pr Toted 

(VALUE OF NSC AN 1 5 USER S II PPL TED ) 


THE FOLLOWING MACRO IS USED THROUGHPUT THE PROGRAM. IT 
CHANGES A F1XFD POINT VALUE TO A FLOATING POINT VALUE. 


5 MADE 
FMAPiE 


RDT92 


HACRO 

FLOAT 

ARF, SRC 

ST 

ARC, FPT+A 

LPR 

ARC, ARC 

0 

ARC, = X ' 4 A oo on on 

ST 

ARC t FPT 

LE 

ARF, FPT 

AE 

ARF, -X ' 46000000 

L 

' ARC ? FPT +4 

LfR 

SRC, SRC 

BP 

* + 6 

LMFR 

ARF, ARF 

M E N P 


CSECT 

SAVE 

( 14,12 I , ,* 


ST AMDAR D SURROUTI N E SE T-UP 


NOTE - IN CASE DIFFERENT REGISTERS ARE DESIRED AS PROGRAM 
EXPANDS, LITERAL REPRESENTATIONS ARE SET-UP FOR USE IN THE 
PROGRAM, THESE CAN RE CHANGED. 

REGISTERS RO , R 1 , RP ♦ RE . AND RF ARE THE SYSTEM REG I STEMS , 

( SET-UP WITH NAMES HERE ONLY FDR CLARITY AND COMPLETENESS ) . 


RO 

ROM 

0 

SYSTEM 

REGISTER 


Rl 

FOU 

1 

SYSTEM 

'REGISTER , < CONTAINS 

ADDRESS 

-i. 



OF CALL 

; INITIALLY ) 


*r 



LATER , 

COMATINS ADDRESS OF 

DATA ) 

K? 

FOU 

? 




R3 

FOU 

3 




R4 

FOU 

4 
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[-01.1 


R5 

V 

R/S 
R 7 


MHI 6 
ROH 7 


RH 

EDO 

8 

R 9 

EDO 

q 

RA 

EOU 

10 

RH 

• r-nu 

1 1 

RC 

Fill] 

] ? 

RO 

EOU 

13 

RF 

FOIJ 

14 

RF 

FOIJ 

15 

OATH ASF 

FOIJ 

9 


'i- 


SOi'ETT MRS USED IN i- \/( ( • S TD ADORES S 
SCAR' ARRAY DATA 

OR TRIM USED IN EVC'S TO ADDRESS 
H 1 1 U S E K ( 1 1 f l U S E K FB P I A 0 ) A K K A Y 


SEE DESCRIPTION DF OATH AS 6 

HAS l REGISTER 

BASE REGISTER 

BASE REGISTER 

SYSTEM REGISTER 

SYSTEM REGISTER 

SYSTEM REG1STFR 

USED AS BASE FOR DATA - ALLOWS 
DATA TO BE DIRECTLY LOADED BACK INTO 
CALL AREA. 


I 


i*i' 



BALR 

RATO 

CONTINUATION OF STANDARD SET-UP 


USING 

HER E 1 , R A v RH , RC 


HERE 1 

L 

RR, BASE AD? 

THESE ALLOW USE OF SECOND AND 


L 

RC , BASE A03 

THIRD REG I STER 


R 

AGAIN 


BASF AD 2 

DC 

A (HERE 1+4094) 


BASFAD3 

DC 

A( HFRE1 + B19? ) 


AGAIN 

ST 

1 3 » SAVE +4 ."Y 



LA 

R?,SAVE 



: - ST-Y/i 

R?,8( 13 ) 


. «■/ * 

LR 

13, R 2 


5,5 

DEBUG 

INSERT 


>>. 

MV I 

BUG1 ,C ' 1 ' 



ST 

I , A DC AL L 

STORE ADDRESS OF CALL SEO. 


L 

R3 , A DC ALL 



L 

R 3 • 4 ( R3 ) 



L 

R 2 , 4 ( R 3 ) 



ST 

R2 , NHOUS 

SECURE INDICATOR OF DESIRE TO 




PRINT HOUSEKEEPING DATA 


1. 

R?,8( R 3 ) 

7 77 : : 7 ■ v ' v ■■ ■ ■ ■ r - ; ; 7 YY - 


ST 

R 2, NS CAN 

SECURE I NO T CA TOR OF DESIRE TO 

•I' 

L 

DATBASE , 0 ( 1 ) 

PRINT SCAN DATA 


I > 

11; -I 



SJOSH* I 


US I NT, S 0 A U . 0 A T H A S 6 


THIS Al.l.di'S Kt* PPKErNCr TD ARRAY 
SCAN T H CODING -PUT P I- RM 1 1 S 
DATA TO l U- PA. SSI- 1) I ‘•'••il-n I ATS-I.Y 
HA K HfiUSEK BFP I Mi’ HAT A BEEN READ AS YET? 

(T.F. HAS SUBROUTINE ALREADY RE EM CALL EH ONCE? ) 

L R 2 * U S E D T T IMP! C A T OR - I F 7 . E K 0 , T H I S I S T HE 

7 Ik h T If N T K Y , ( H 0 U S EKEE PI NO I) A T A 
• MUST STILL HE READ): IF DHE, 

1 T 1 S A SUMS i-OUFM Pf AD AMD SO 
COM TP OL IS PASSED TO SCAN 
OR REGULAR DATA READ 

C R 2 » = F ‘O' 

RME REGULAR • 

SINCE THIS IS THE F I RST CALL , TAP E HAS MOT BEEN OPENED 
AS YFT - THAT MUST BE DOME FIRST 

OPEN ( TP 19?, ( INPUT ) ) 

GET TP 192 
ST R 1 « A DO AT 


DEBUG AID 
MV 1 ' BUG,? , C 1 2 1 

BEGIN TO READ -HOUSEKEEPING DATA 

MVC HOUSEK ( GO ) *0(1) MOVE THE FIRST 60 BYTES, 

( CONTAINING EBCDIC TITLES, ETC. ) * 
INTO HOUSEK ■ ■ 

SR R 2 ♦ R ? ’ NEXT* INSERT DATE OF TAPE GEN- 
IC R? *60 ( 1 ) ERAT10M, {NOTE THAT A LOOP IS I Mr. 

' STH R2 * MOUSEK+64 POSSIBLE HERE SINCE JSC ORDERS 

SR R 2. « R 2 L AYMAN AND GODDARD DO. 

SR R 2 * R 2 T I ME AS THE EUR OP F ADS OR 

10 R 2 *61 ( 1 ) MILITARY DO (DAY, MONTH AND 

•STH R2 .HniJSEK + 62 YEAR) RATHER THAN AS THE 

10 R2. 62(1) (MONTH, DAY, YEAR ) . NOTE TOO 

STH R2*H0USEK+60 THAT THE CURRENT TAPES 

; ( FEB. « 74 ) FROM JSC DO NOT 

“ FOLLOW EITHER - THEY LIST YEAR 
DAY AND MONTH - ERROR, BUT ONE 
WITH WHICH HE MUST CONTEND 


INSERT ADDRESS OF DATA INTO REG. 
STORE ADDRESS OF DATA INTO ADD AT 
FDR FUTURE USE 



IfcUV 
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SR 

R 2 , HR 


i c 

R?,6?( II 


STH 

R2 , 1-1011 SPK + 66 

TAPE SEn. ID INSERTED INTO 
HOUSE K 

DEBUG 

AID 


MV I 

BIJG3.C ' 3 ' 


I.A 

R7.HOUSSK 


A 

R 7 . =F ' MR ' 


MV C 

0 ( 4 , R 7 ) ,64( 1 ) 

MI SSI DM NO. AMO SITE MO. ARE 
ENTERED 

SR 

R ? * R ? 

LIME MO. IS ENTERED 

ir 

R ? » 6 B ( I ) 


STH 

R2 , wnUSEK + 72 


SR 

R2 » R 2 


JC 

R 2 , 6 9 ( 1. ) 

RUN MO. IS ENTERED 

S TH 

R2 , HDUSEK + 74 


A 

R7 . = F • 8 • 


MVC 

0( ? ,R7 ) , 70(1) 

ORBIT NO.. IS ENTERED 

DERUM 

AID 


MV 1 

BUG4,C '4' 


LH 

R2,72 ( 1 ) 

TIME OF SCAN IS 

STH 

R? , HOUSE K+90 

R E CO RO E D - A G A I N, OR H E R 

SR 

R 2 , R 2 

DIFFERS FROM THAT ON TAPE 

IC 

. R2.7R( 11 ■ 

JSC C r I VE TENTH OF HILL I SEC, . 

STH 

R2 , HCHJSEK+7H 

SEC. , MIN. , HOUR, DAY, MONTH, 

SR 

R2 , R 2 

YEAR,* WE WISH MONTH, DAY, 

If, 

R 2 » 7 7 ( 1. ) 

; YEAR , H OUR , M I N U T E , S E COMO , 

STH 

R2 « Wf)US EK + HO 

TENTH OF MI LL I SEC ! 

SR 

R 2 * R 2 


IC 

R 2 « 7 9 ( I ) 


STH 

R 2 , HHUSEK + R 2 

( Y S E AR ) 

SR 

R 2 , k 2 

If 

R 2 , 76 ( 1 ) 


SR 

R2 •'<? 


IC 

R 2,75(1) 


STH 

R2 , HOUSER +«6 

(MINUTE ) 

. STH 

R2 , HOUSE K+H4 

(HOUR) 

SR 

R? ,R2 


If 

R2 , 74 < 1 ) 
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ST il 

R 7 , HOUSE K + AH 

(second) 

I. A 

R7 .HOUSER 


A 

R7.=F • 7M • 

ENTER TUT.: S f. VALUE S ( T 1 Ml- ) ALSO 

LA 

R ? .SCAN 

■INTO' SCAN ARRAY FOR FUTURE USE 

A 

R 2 , = F * 1 0 • 


! VC 

0( 14, K? ) , 0(K /) 



debug a i n 


<1+ 

MV I 

BIIGS.C ' 5 ' 



I.A 

P.3', 8 

3 MTTIA1 IZE C H A MN EL 1 L 0 (7 P INDEX 


LA 

RA.BO 

INPUT DATA INDEX , (CHANGES EVERY 




«TH TIME - JSC DATA ST UR ED BIT 

* 



BIT HERE ) 


LA 

R 7 , 9? 

OUTPUT INDEX FUR HOUSE* ARRAY 

CHAMWp 

LI LA 

R 5 , 2 4 

INITIALIZE DISPLACEMENT FOR 

V 



LEFT SHIFT 


LA 

R6 ♦ 7 

INITIALIZE DISPLACEMENT FOR 

'1' 



RIGHT SHIFT 


LA 

R4,B 

INITIALIZE INNER CHANNEL? LOOP 

*■« 

O' 



INDEX • 

CHANNEL? SR 

R2,R? 



1C 

R 2 , 0 ( R 8 , 1 ) 



SLL 

R 2 , n ( r s ) 

CUT OFF NEEDLESS LEFT BITS 


SRL 

R 2 , 0 ( R S ) 

R E-POT I T I ON 


SR L 

R2,0(RM 

CUT OFF NEEDLESS RIGHT BITS 


STH 

R2 , HOUSllK ( R / ) 

S TO R f - RESULTING VALUE 


LA 

R 7 , 2 ( R7 ) 

UPDATE HO USE K INDEX 


LA 

R 5 ♦ 1 ( R S ) 

UPDATE LEFT SHIFT VALUE 


• S 

R6,=F ' 1 ' 

UPDATE RIGHT SHIFT VALUE 

s'c 

RCT 

R 4, CHANNEL 2 

COMP LET E CH ANN EL 2 L OOP 


LA 

R8 , 1 ( R.B ) 

UPDATE I NP LIT DATA INDEX 

jV 

RCT 

R3 , CHANNEL 1 

COMPLETE CHANNEL 1 LOOP 

«lr 

V 

ACTIVE 

CHANNELS ARE 

RECORDED 

•3+ 

■A. 

'ik 

DEBUG AID 



M V I 

BUGA , C 1 h • 



SR 

R 2 , R ? 

; . ; / ■ ■ ■ " ' ■' 


IC 

R2,BH( 1 ) 

RECORD PROCESSING FLAG 



C-20 


RE l. B ODUCffiILn'VOF IHt. 

(jrigwal page is poor 


STH 

R? , HNIJSEK+22.0 




SR 

R 2 , R 2 




IC 

R2,RV( 1 ) 

RECORD NO. 

OF ACTIVE 

CHANNELS 

STH 

R2,HOUSEK+222 

IN THIS JOB 


STH 

R 2 , SCAN+2 

ALSO RE COR 
FUTURE US F 

D IN SCAM 

ARRAY FOR 

SR 

R 2 , R 2 




IC 

R2,H0( I ) 

RECORD NO. 

KITS IN A 

P 1 c . 

STH 

R2 , l IDU SHK+224 




LA ■ 

R7 , HNIJSEK 




A 

R7,=F'226» 




MVC 

0( I n , R 7 ) ,D1( 1 ) 

FURTHER 

VIDEO DATA 

INFO. IS 


RECORDED, (START ADD. .OF VII). 
DATA, START ADD. OF 1ST CAL JH. 


AREA wn'HIN SCAN, NO. VIDEO EL. 
PER SCAM WITHIN A SINGLE CHANNEL, 

NO. CAL IB. EL. JM 1ST CAL IK. 

AREA WITHIN SCAN IN SINGLE CHAN. , 

PH YS I CAL RE C OR D SIZE IN II YT E S ) 

A R 7 , = F 1 4 ' 

LA R 3, SC AM 

A R3 ,=F ' 4 ' 

MVC <3 ( 2 , R 3 ) » 0 ( R 7 ) RECORD PHYSICAL. RECORD SIZE IN 

SCAN ARRAY ALSO 

SR R2,R2 

IC R2 , 101 ( 1 ) RECORD NO. OF CHANNELS PER 

S T H R 2 , HOU SEK + 234 PH YSICAL RE C OR D 

SR R2,R2 

IC R2» 102 ( 1 ) RECORD MO. PHYS. REC. PER 

STH R2 , H01JSEK + 23H SCAM P ER CHANNEL 

SR R 2 , R 2 

IC R2, 103(1) RECORD NO. OF PHYSICAL REC. TO MAKE 

STH R2 » WOUSEK+240 A COMPLETE DATA SET 

A • R 7 , = F ' 12' 

MVC 0(2, R7>, 104(1) RECORD LENGTH OF ANCILLARY 

[ I BLOCK IN BYTES 

•SR R2 >R2 

JC R2V1 06(1) RECORD DATA ORDER INDICATOR 

STH R 2 , H0USEK+244 

A R 7 , - F ' 4 ' 

MVC 0( 4,R7) , 1 07(1 ) START AND STOP PIXEL NOS. ARE SAVED 
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* SLOPE AMD T r-JTf : »' f. FPT COMP ONE MTS LOOP - MITE I HAT 

* UN l IK I- I HI- JSC ••.[;•( HUD UP STORAGE , (ALL AO VALUI-S* 

* THEM ALL LO VALUES* THEM ALL AI VALUES* 'THEM ALL El 

* VALUES), HEME* A0,I:0,A1 AMD El VALUES FOR UN E CHANNEL 

* ' WILL of- STUPED GOririGUOUSLY. 


DEBUG AID 


LA 


LA 
7 LA 
LA 
A 

VALUE 1 LH 
LTR 

a z 

LA 
' SR 

5 r. ; 

VALUE? LR 
AR 
AR 
MVC 
LA 
LA 
RCT 

* 

CUMLnnp la 

LA 

A' 

RCT 


MV I 


BUG 7*0 ' 7 ' 
R2 * 9? 


R3 * EA- 
RS * 1 1 1 
R 7, HOUSE K 
R 7 * = F ' 2 5 0 ' 

R 5 * HUUSEK ( R? ) 

R 5 » R 5 
CQMLOOP 
R6 * 4 
R 4 * R 4 

R 5 * R H 
R 5 ? R 4 
R5 * 1 1 

0( 2 ,R7 ) ,0( R5 ) 
R4,12H(R4) 

BY ,2 ( RY) 

R6, VALUE? 

RB * 2 ( RH ) 

R2 * 2 ( R? ) 

R3, VALUE 1 


BUGB.C'a' 


I N ITIALI 1. 1: A C C E S S D T S P I. A C E h B N T 
T 0 I N D 1 C A T 0 R S I N l-l DU S E K A R R AY 1 1 F 
ACTIVITY (UR MOM- ACTIVITY) OF CHAN 
INDEX FOR VALUE! LOOP 
DISPLACEMENT FOR INPUT ARRAY 
01 SP LACE ME NT FOR OUTPUT HOUSE K 
I S COMP L ET ELY IMIT1A LI ZED 
ARRAY 

INSERT ACTIVITY INDICATOR FUR 
CHANNEL 

TEST IF ACTIVE 
I F NO T, SKIP INFO . ( ALL ZE RO ) 

I ISIDEX FOR I NNER VALUE 2 L OO P 
D I SP L AC EM E N T NE E D E D F OR SEC U HI MG 
AO, EO , A 1 , E 1 VALUES C ONTIGIJ DU SLY 

TOTAL DISPLACEMENT TO ELEMENT 
ADD BEGINNING ADDRESS OF DATA 

UPDATE COMPONENT DISPLACEMENT 
UPDATE OUTPUT ARRAY DISPLACEMENT 
COMPLETE INNER VALUE 2 LOOP 

UP DA T E IN PUT I ND E X D ISP LAC EWE NT 
TO REFLECT CHANGE IN CHANNEL ;■ 
UPDATE INDEX TO INDICATORS OF 
ACTIVITY OR NON-ACTIVITY 
COMPLETE OUTER VALUE! LOUP 


%•* 


DEBUG AID 

COLOR CODE AND SCALE FACTOR LOOP - AGAIN, VALUES * HERE* 
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WILL 

Kb ST dr i n cn.i i jgu. 

iUSLY FDR isACH OH A ARIEL 


LA 

R? * 0? 

J H IT J A 1 17 (* IDS PL. TD JDDICATfJR ill- 

•1' 



ACTIVITY DR DDR— ACT I V IT Y Db CHAV. 


LA 

K3 ,64 

INDEX OF tUni:R CIiLSCl.l LOUP SET 


LA 

. Krt,6?3 

I) J SRLACL-.-iir'i H FOR INPUT ARRAY SET 


LA 

R7,762 

DISPLACEMENT FI IK OUTPUT ARRAY, 

'1* 



HOUSE K, SET 

cm. sc Li 

U J 

R 5 » HOU S LK ( R? ) 

IMSFKT INDICATOR OF ACTIVITY OF 

V' 



CHAM? i El. S 


ST 

R ?. , C I N D 

STORE R2 TEMPORARILY SO FREE IT 

■■ 



FOR POSSIBLE USE BELOW 


LTk 

R 5 , R 5 

TEST IF CHANNEL ACTIVE 


R 7 

COMCPL 

IF HOT ACTIVE, 00 MOT RECORD IMF. 


LA 

RA>2 

I NO EX FOR 1 NNER COI.SCT. 2 LOOP SET 


SR 

R4,R4 

DISPLACEMENT NEEDED FOR SECURING 

\i+ 



COLOR CODE AND SCALE FACTOR VALUES 

o. 

>.*> 



CONTIGUOUSLY 

COL SOL 2 

LK 

R 5 . R « 



AR 

R 5 * R 4 ' 

TOTAL DISPLACEMENT TO ELEMENT 


SR 

R2,K? 



TC 

R2 , 0 ( R 5,1) 



STH 

R2 iMOUSEK { R 7 ) 



LA 

R 7 , 2 ( R 7 ) 

UPDATE OUTPUT ARRAY DISPLACEMENT 


LA 

R 4 , 6 4 ( K4 ) 

UPDATE DISPLACEMENT TO ELEMENT 


RCT 

R6,COLSCL2 

COMPLETE I NNER C0LSCL2 LOOP 

cnMcni 

L 

R2 ,CTNO 

DETERMINE CURRENT VALUE OF DISPL . 

jU 



TO INDICATOR ARRAY AND UPDATE IT ' 


LA 

R2,2( R2) > 



LA 

R8, 1 (RM ) 

U P DA TE I D ISP L A C EKE NT TO INPUT ARK A Y 


BCT 

R3,CCLSCL1 

COMPLETE OUTER C0LSCL1 LOOP , 

, .# f v •• 

DEBUG 

AID 


>*v 
5'C ■ 

MV I 

BUGS , C 1 9 1 



SR 

R 2 , R 2 



1C 

R 2 , 7 5 1 ( IT 

1 N S E R T 0 FFS E T CO N S T A N T 


STH 

R2 tHCiUS EK + 1018 



SR 

R2,R2 



J C 

*2,752(1) 

INSERT WORD SI 2E OF GENERATING 


STH 

R2 , HDUS EK + 1 020 

COMPUTER 


LA 

R 7 , HDUSFK 
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R7 ,-P * 1 <)?? ' 

R A , 1 

RA,=F ' Yl>3 ' 

R 3,4 

0( ?r><S,«V ) . 0( K 6 ) 

RA, 2 5M R6 ) 
K7i? r '()( R7 ) 

R3 ,|V-;:VL: IT 
f<2 , R2 

R2, 17771 1) 

R 2 , M OU S E K + 2 04 A 

R7,=P'2 ' 

0(4, R7) . 177H( ). ) 


R3 ,R3 

R3 , 17 82 ( 1 ) 

R3, 1 
R3 , 4 

R 3 , HOU SE K + 205 2 
R3.R3 

R 3 , 1 7 8 2 ( 1 ) 

R3 , 7 


1NI.TIALI7E DISPL. TO INPUT RATA 

INITIALIZE I N OCX (IF MOVE IT LOOP 

I '••! S f: R T B F 0 1 N N I N 0 A Mf) E M DIM 0 
WAVELENGTH L I M IIS FOR EACH CHANNEL 
UPDATE DISPL. TO I A. PUT ARRAY 
UPDATE DISPL. TO OUTPUT ARRAY 
COMPLETE MOVE I T LOOP 

I M SB R T N 0 . 0 F DATA SETS PER 
PHYSICAL RECORD 


I NSERT START ADD. OF 2ND CAL IB. 
AREA WITHIN SCAM AMD MO. OF CAL IB. 
EL. IN 2ND CALI B. AREA IN SCAM IM 
ONE CHANNEL 

INSERTING CAI. IB. SOURCE 
INDICATOR FOR 1ST AND 2ND 
CALI B. AREAS. SHIFTS 
NECESSITATED BY METHOD OF 
STORAGE 


R 3, WORD : 

R 7 » = F ' 5 1 

R 6, WORD 
R6.=F • ] • 

0 ( 1 . R 7 ) » 0 ( R 6 ) 
R7,=F • 1 ' 

0(8, R7) ,1784(1) 


INSERT NO. CHANNELS IN 1 PHYS. 
REG. OF DATA SET, TOTAL NO. 

BYTE S / S C A M/C HA M N E L, PI X EL 

SKIP FACTOR AND SCAM SK I P FACTOR 


DEBUG AID 

MV 1 BUGA , C 1 A * 

INPUT ARRAY OF HOUSEKEEPING DATA CONTAINS DATA NOT 
AT ALL USEFUL TO GODDARD PERSONNEL IN BYTES -1793 THRU 
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• V 

?.V}H , 

SO T H-f- S i .KYI?. S AJ 

vf- HOT ACCESSED HFmF. 

* ( v 

SR 

P J 9 p A 



ST 

R3, WORD 

RF 1 N 1 T 1 A|. I 7 E WORD FDR 1. AT PR USE 


SR 

R? ,R? 



ic 

R3,2 ( p •• ( } ) 

TOTAL NO Or SCAM 1. I NFS PER 


M 

R 2 , -F ‘ lODO • 

FRAME ARE ACCESSED , ( HOUSTON 


STM 

R 3 , 1 1 ( -1 1 S I: K +7 OA 2 

S T OR E n the: m I n m t h misands SO 

V 



VALUE: MUST HE MULT I PLIED BY 

V . 



1000 TO YIELD CORRECT VALUE) 


ST 

R3 , TOTL TM: S 

value also stored in totl imps for 




FUTURE, list 


STH 

R3 » SCAfv + R 

SIMILARLY, IT IS STORED IN THE 

-o* 



ARRAY SCAN. 


DEBUG 

A I D 


**- 

*»* 

MV 1 

HUGH , 0 • H • 

• - . , 


GENERAL INFORM AT TON FOLLOWS - MAY MOT HE MfeFDFO BUT 

sU 

'1* 

*t* ■ 

SAVED 

ON slight CHANCE 

OF USE 


LA 

R 5. WORD 



A 

R5,=F ' 1 ' 



MVC 

0 ( 3 , R 5 ) , 21393 1 ) 



L 

R2 , WORD 

S TO K AG E M E TH QD A G A 1 N M EC ESSITATES 


ST 

R 2, HOUSE K+ 2064 

PECULIAR ACCESS AND INSERTION OF 

.U 



ALTITUDE, (HERE, JSC USED 3 BYTES FOR 

V 



IT) 


LH 

R?,2792( 1) 



STH 

R2 , HOUS EK+206H 

INSERT GROUND SPEED IN W/SEC. 

«i* 

V 

SCAM INFORM AT ION LOOP 


'O 

%»* 

SCAN 

TYPE ♦ANGLE OF ARC 

, CAMERA TYPE, INPUT DEV I C E , TRUMC AT I OM 

V 

LA 

R3 , 5 



LA 

R7.2070 

OUTPUT ARRAY DISPLACEMENT 


LA 

RB » 2794 

INPUT ARRAY DISPLACEMENT 

.SCAN INF 

SR 

R2 » R 2 



IC 

R2 , 0 ( RH , 1 ) 



STH 

R2 * HDUSHK ( R7 ) 



LA 

R7 i ? ( R 7 ) ' 

UPDATE DISPLACEMENT FOR OUTPUT ARRAY 


LA 

RP , I f RP ) : 

U PDA T F DISPLACEMENT FDR I N PUT ARRAY : 


HCT 

R 3 , SC AN IDF 

CUMPLFTE SCAN I NF LOUP 
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CHANNELS' RI'UIM STM" 1 UUP 


V 





LA 

R 8 , H 

NOTH TnAT OUTER LOUP INITIALIZED TO 

* 



8 SINCE A4 CHANNELS 1 INFORMATION A K F 

i;c 



STORFU B i r RY H M 


LA 

RVrPOiiO 

OUTPUT ARRAY Ol SPI.. A( DiUfci'i f SET 


I.A 

RR * 2 7 VV 

1 M PUT ARK A Y 0 1 S P L A C L K C M T S 1 - T 

C H v K n i 

LA 

RA « H 

INDEX OF INNER CHNRO? LOOP - CORRES- 




PONDS TO FACT THAT TMRR F ARE 8 BITS 

't' 



IN A BYTE 


SR 

R4rR4 

LEFT SHIFT INDEX INITIALIZED 


LA 

R3 « 7 

RIGHT SHIFT INDFX INITIAL I ZHD 

CHMRA? 

SR 

R2,R? 



ic 

R?,D(R8,l ) 

DATA FROM TAPE INSERTED INTO REGISTER 


sth 

K 4 , 0 H 1 + P 

ALTER INSTRUCTIONS FOR SHIFT 


STM 

R4,C HP +2 



STH 

R3 * CH3 + 2 


CHI 

SLL 

R? * R4 

CUT 0 f- F D E S I R 6 D H 0 . R I T S ON LEFT 

CH? 

SRI. 

R2 • R A 

RESTORE TO ORIGINAL POSITION 

CH3 

SR L 

R 2 « R 3 

CUT OFF DESIRED NO. hITS 0\ RIGHT 


STH 

R2 * HOUSEK ( R7 ) 

STORE IN OUTPUT HOUSEK ARRAY 


LA 

R 7 , 2 ( R 7 ) 

UPDATE OUTPUT ARRAY D I S PL ACEH ENT 


LA 

R4 » 1 ( R4 ) 

UPDATE LEFT SHIFT VALUE 


. S 

R3 » -F *1 1 

UPDATE R IGHT SH I FT VALUE 

*>«■ 

BCT 

R A « CHNRO? 

COMPLETE CHMRQ2 LOOP 

T 

• r ■ 

LA 

RR * 1 { RH ) 

UPDATE INPUT ARRAY DISPLACEMENT 


BCT 

R5 , CHNRQ1 

COMPLETE CHNRQ1 LOUP 

o' 

r ‘ 

THR Nr XT LOOP STORES 

VARIOUS. PARAMETERS INCLUDING; 

*>. 

PROCESSING MODE INDICATOR* OVERLAY IMAGE FACTORS , COLOR SELECT 


I NOTC ATOR.t I M AGE FORM 

AT INDICATOR, REPEAT OF PIXELS PER SCAN, 

. 

O' 

«■> 

AND i 

REPEAT OF SCAN 



LA 

‘ R 5 * 7 0 

INITIALIZE INDEX OF REST 1 LOOP 


LA 

R 7, 2 2 08 

INITIALI 7. E D I S PL A C EM E K T 1- 0 R 

¥ 



OUTPUT HlJUSEK ARRAY 


LA 

R 8 , ? 8 0 7 

INITIALIZE DISPI.ACFM ENT FOR INPUT 

O' 

y* 



ARRAY 

RFST1 

SR 

R2,K2 



IC 

R2 r O ( RH , 1 ) 

INSERT INPUT DATA INTO REGISTER ' 


I c 

R 4 , t) ( K k , l ) 
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ntiPTBEJiTV OF.TBB 

SSfS. * w* 




L Til 

R 4 , i*. 4 

* 


B P 

POSR 

SINCE HOUSTON JSC POPE'S NEGATIVES 

»># 



U S 1 1 LEADING HI 1 Si' TIT. *.I’S OM_Y, 

p. 



U6 OUST CHECK THAI h 1 T , KE— SET 

V 



IT I’ll ZERO II IT IS HI 'I , AMD, ALSO 




IF 11 HAD KEEN USE, 1.0 AO THE 




NEGATIVE Or THE VALUE 


0 

R2 , “X ' UUOOYFFF ' 



L K 

R 2 


POSH 

STH , 

R2 , HOUSER ( RY ) 

NOW, STOKE RESULT IN OUTPUT HOUSfcK 

V 



ARRAY 


LA 

RH» 1 ( KH ) 

UPDATE 01 SPLACFOcNT TO INPUT ARRAY 




ARRAY HOUSE K 


HOT 

R 3 , RE SI 1 

CON PL FEE K6ST1 LOOP 


LA R 7 .?(Hn 

I.A R 7 - * HtJUSEK 

A R 7 , = F ' 2 3 4 8 • 

NVC 0( 6,R7 ) t2H77( 1 ) 

<*4 

SR R 2 .R 2 

IC R 2 » 2 B B 3 ( 1 ) 

STH R? »H0USEK+23S4 

SR R2.R2 

TC R2,2BH4(1) 

] C R4,2B84(1) 

SI. L R4.24 

LTR R4,R4 

HR ROSA.M 

N R2 » — X ' 00007FFF 1 

LMR R2.R2 

PLiS AM HC 0,0 

FLOAT R 2 , R 2 

SR R4,R4 

IC R4,2«B5( I ) 

F LOAT R 4 , R 4 

DF. R4 ♦ = F 1 254 . ' 

AER R? fRA 

ST t: RL.HUUSEK+2336 

A R 7 , = F ' 1 2 ' 

MVC 0« SO, R / ) , 29401 IT U-SERT TITL E SUPPL I ED BY HOUSTON 

* JSC INTO HOUSES 
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UPDATE DI SPL ACL SENT TO OUTPUT 


INSERT PARTIAL SCAN INDICATOR AMI' 
S EN SOR S C A N R A T E I N S C AOS /SEC. 

INSERT PIXEL SIZE INTO HOUSER 


C H A N 06 I N P U T FIXE P P 0 I W T VALUE 
OF ANGLE OF DRIFT TO FLOAT 1 NO PHI ITT 

C H AN GE F I X E D PO 1 NT F R A C T I 0 N ( F 
ANIVLE OF DRIFT TO FLOATING POINT 
DIVIDE BY PROPER POWER OF 14 
ADD PR ACT I ON TO WHOL E NO . 

STORE IN HOUSE K ARRAY 



i) f? BUG AID 


MV I BUGC ♦ C ' C • 


* THE NEXT LOOP CALCULATES THE SLOPE AMD INTERCEPT VALUES 

* USING INPUT COMPONENTS AND STORES RESULTS IN HOUSER 



LH 

R3 ♦ HOUSEK+222 

LOAD NUMBER OF CHANNELS WHICH ARE 

❖ 

LA 

R 8 » 

ACTIVE AS INDEX FOR OUTER SLIN2 LOOP 
INITIALIZE DISPLACEMENT TO HOUSEK 




FOR ACCESSING SLOPE AND INTERCEPT 


LA 

R7» 2.420 

' COMPONENTS 

INITIALIZE DISPLACEMENT TO HOUSEK 

* 



FOR INSERTION OF CALCULATED 

* 



SLOPE AND INTERCEPT VALUES 

SLIN2 

SR 

R6 * R 6 

INITIALIZE DISPLACEMENT INDEX USED 

* 



FOR ACCESSING EITHER INTERCEPT COM 

* 



PONENT OR SLOPE COMPONENTS 

V* 

LA 

R5 ♦ 2 

; I 

INNER SLIN1 INDEX INITIALIZED 

SL INI 

LR 

R4.R6 : 



AR 

R4 f RB i 

FIND TOTAL ADDRESS OF COMPONENT 


ST 

RStCIMD 1 

STORE VALUE OF R5 TEMPORARILY IN 

sjc 

LH 

R 2 ♦ HOUSE K ( R 4 ) 

CIND SO R5 AVAILABLE FOR USE 


LTR 

R2.R2 



BP 

OK 

THE JSC NEGATIVES ARE FORMED WITH 

* 



LEADING BIT ONE: IBM USES 2> S 




COMPLEMENT; VALUE WAS NOT PREVIOUSLY 

* 



CHECKED OR CHANGED SO IT MUST BE 

* 

N 

LNR 

R2 » =X * 00007FFF • 
R2 » R2 

ACTED UPON HERE. 


STH 

R2TH0USEK ( R4) 
R2 t R? 

STORE OUT PROPER VALUE OF COMPONENT 

OK 

FLOAT 

CHANGE VALUE TO FLOATING POINT 


LE 

R4,=E'10. • 

PREPARE FOR EXPONENT CALCULATION 


LH 

R 5 t HOUSEK + 2 ( R4) 

■ LOAD I N EXPONENT 


LTR 

R 5 » R 5 

TEST REGISTER TO DETERMINE IF 


BZ 

ZERO 

IT IS ZERO? OR 

x« 

BM 

NEC 

IT IS NEGATIVE? 

S 

R5» = F ' 1 ' 

IT IS POSITIVE! CHECK IF IT IS 


* 

»t. 



B7 

ONE 

FXP 

ME 

R 4 , = E 1 10. • 


RCT 

R5 , EXP 


B 

ONE 

MEG 

N 

R5i=X 1 0D007FFF ' 


. LNR 

R5.R5 


STH 

R 5 , H 0 U S E K + 2 ( R 4 ) 

1' 

LPR 

R5.R5 

o, 

* 

- 



S 

R5,=F ' 1 ' 


BZ 

MONE 

V 



EXPN 

ME 

R4,=E' 10. ' 

* 


T 

V 

BCT 

R 5, EXPN 




MONE 

STE 

R4 , FPT 

V 

LE 

R4 i =E ' 1. ' 


DE 

R4JFPT 


B 

ONE 

ZERO- 

’ LE 

R4, = E • 1|. ' 

ONE 

MER 

R2,R4 

v ■■ 

STE 

R2 .HOUSEK ( R 7 ) 


LA 

R7,4(R7) 

T 

LA 

R6 14 



RsiciND 


BCT 

R5, SLINl 

*v 




LA 

R8 , 8 ( RR ) 


BCT 

R 3 , S L I M 2 


5j> 


* 


GREATER THAN ONE » ( IF DNF, VALUE 
OF 10 IS ALREADY IN REG. R4) 

THIS LOOP CALCULATES POWER OF TEN 


AGAIN, JSC NEGATIVES DIFFER FROM IHM 

STORE CORRECTED COMPONENT BACK 
TO DETERMINE POWER OF 10, THE 
POSITIVE VALUE OF EXPONENT MUST 
BE DERIVED; THEN RECIPROCAL 
OF RESULT IS CALCULATED 
AS WITH POSITIVE VALUE OF COMPONENT, 
W E I NS UR E THAT V A L U E IS NOT ON E 
IF MINUS ONE, CONTROL PASSES TO 
MONE 

THIS LOOP, LIKE ITS POSITIVE 
COUNTERPART EXP, CALCULATES 
THE POWER OF TEN 


TO DETERMINE RECIPROCAL, VALUE 
IS TEMPORARILY STORED IN FPT 

CALCULATE RECIPROCAL 

IF EXPONENT IS ZERO , ( 1 0 ) **0= I . 
MULTIPLY POWER OF TEN BY 
COEFFICIENT 

STORE OUTPUT VALUE INTO HOUSEK 
UPDATE DISPLACEMENT FUR CALCULATED 
SLOPE AND INTERCEPT VALUE 
UPDATE DISPLACEMENT FOR SECOND 
(SLOPE) COMPONENT ACCESS 
RESTORE VALUE OF INDEX TO LOOP 
COMPLETE SLINl LOOP 

UPDATE DISPLACEMENT TO COMPONENTS 
PER CHANNEL 
COMPLETE SLIN2 LOOP 


DEBUG AID 








j 

i 


. ' t : 

if ‘ * j .. * 





Cl 


MV I 


BUGDtC • 0 • 


n : *i' 'I" -I* ^ 'I- 'I- *!' sj* 'i* '!■ 'I* '!• ?i* -I' 'I* (■* N [") OF HOUSE K EC P I NO A GOES S **' *** '■* 5,: *'* *'* **' ^ r, ‘ 

* IF DESIRED BY USER, HOUSEKEEPING DATA IS PRINTED USING PR I NTH 

* 1 ■ 

L R2 , NHOUS CHECK USER OPTION SUPPLIED IN CALL 

; A-: ■: LTR R 2 » R ? J A 

R7 NOTWSHHS 

CALL PR INTH , ;( HOUSE K » HfjtJSEK »HOUSEK »HOUSEK)»VL 

* 


NOTWSHHS L 
ST 
SR 
ST 


ST 

LA 

ST 

LA 

STH 


R2 


R2 


»| = F; 1 1 i* 
jlJSED'lT 
R 2 , R 2 

R2 , CHANNEL Q 


R 2 » N 0 F I L 
R2 ,0 

R 2 » L I N E N 0 

R2 , 1 

R2 tSC AN+6 


INSERT INDICATOR TO SHOW HOUSE- 
KEEPING DATA HAS BEEN ACCESSED 

INITIALIZE CHANNEL ORDER VARIABLE 
TO ZERO 

INITIALIZE FILE ORDER NO. TO 
ZERO 

INITIALIZE LINE ORDER NO TO ZERO 


STORE LINE NO. ALSO IN SCAN ARRAY 


V# J# 

#|« ^ 


J# o# ^ ^ ^ « 


* ^1# J# 

% f|> ^|V 


*1*- O# 


sU ^ 

rp /|S #|N ^ ^ f 




^ %** Vi V> y# ^ V* V# * 

/p ^ 


* 


END OF ALL HOUSEKEEPING STORAGE , PR INTI NG ETC. 
REGULAR DATA ACCESS BEGINS 


REGULAR BC 


0,0 


* 

ny 

o- 

*v» 

* 

* 


DEBUG AID 

MV I HUGE ,C ' E ' 

L R2 , NOCHANPR 


•CONTINUE' TYPE STATEMENT INSERTED 
TO ALLOW LOGICAL INSERTION OF DEBUG 
VALUES WHICH MAY LATER BE REMOVED 


INITIALLY, THIS VALUE IS Z E R 0 : L A T £ R 
IT WILL GIVE THE NUMBER OF CHANNEL 
(SCAN LIME) RECORDS LEFT IN THE 
PHYSICAL RECORD 


D 


>•1 
l i 
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' i 


^ DU t c ?Sw“--' 

iDirilWiAL PAGE *■ 


ORIGIN AE 


U 1 


.1; I 


Jf f 

| . 

i, 


li i 




Hi 


V 


*t ■. 

I«tcr - 




LTR 

RP 


R 2 » R? 
HAVEDATA 


MEEDDATA GET 
ST 

* 

* DEBUG 


TP 192 
1 , ADDAT 


* 

❖ 


MV I 
LH 


AID 

RUGF , C ' F ' 

R 2 , H OU S E K+ 2 36 


ST 

L 

LA 


R 2, NOG HAN PR 
R 2 * N 0 F I L. 

R2, 1 ( R2 )i 


LH 

CR 


R3 ♦ HOUS EK + 240 
R 2 » R3 


BMH 

LA 


FILENOOK 
R2 , 1 


FILENOOK LH 
CR 
BNE 


R3 » 0 ( 1 ) 

R 2 ♦ R 3 
ER.RFILMQ- 


DEBUG AID 

BIJGG.C ' G ' 


MV I 


LA 

ST 

ST 


R6,2 ! 

R 6 ♦ P 0 S I NiF 1 1. 
R2 » NOF I U 


HAVEDATA L 


LA 


R2 , CHANNE LO 
R2 » 1( R? ) 


IF ZERO, TAPE MUST RE ACCESSED TO 
GET A NEW PHYSICAL RECORD; IF NON- 
ZERO t DATA IS STILL AVAILABLE FOR 
USE FROM THE LAST ACCESS 


INSERT ADDRESS OF DATA INTO REG. 1 
STORE ADDRESS OF DATA INTO ADDAT 
SUBSEQUENT CALLS WOULD NEED IT! 


REINITIALIZE NO. OF CHANNELS 

LEFT IN PHYSICAL RECORD TO 

NO. PROMISED IN HOUSEKEEPING DATA 


ACCESS CURRENT NO. OF FILES 
ADD ONE - READING A NEW PHYSICAL 
RECORD! FILE) 

COMPARE INCREMENTED NO. WITH 
PROMISED MAXIMUM NO. OF PHYSICAL 
REC. PER 'DATA REC. ' 

IF LESS THAN OR EQUAL TO THAT MO., 
THE FILE NO. IS ACCEPTABLE 
IF NOT, THIS MUST BE THE START OF 
A NEW 'DATA SET' 

COMPARE FILE NO. ON TAPE SUPPLIED 
BY HOUSTON JSC TO MQ. DYNAMICALLY 
CALCULATED; IF UNEQUAL, ERROR! 


I N I T I ALI ZE PCS I T I ON I N FILE COUNT ER 
STORE CURRENT VALUE OF FILE NO. 


ACCESS CURRENT VALUE OF THE ORDER 
OF THE CHANNEL 

I NCR EM ENT IT* ( NEW CHANNEL IS NOW 
BEING READ 


C-3I 




it 


1 


!•; 






OF BUG AID 


MV I BUGH « C ' H 1 


ST 

LA 

CR 

BE 

LH 

CR 

BNH 

I. A 

LH 

C 

BE 

LA 

ST 

B 

CONTIN ST 

L 

LA 

ST 

* 

;,c 

v 

* 

* 

STH 


R-2 ♦ CHANNEL 0 

R3 ♦ 1 
R? ,R3 
CONTIN 

R3 , HfHJSEK + 222 
R 2. .» R 3 
CHANDK 
R 2 , 1 

R3 ♦ HOUSEK+236 
R3 ,NOCH ANPR 
C O NT I N 
R2.0 

R2 * CHANNEL 0 
NEED DAT A 
R2 .CHANNEL 0 
R-2 , L IN END 

R2.1 ( R2 ) 

R2 » L I MENO 


R2.SCAN+6 


STORE CURRENT VALUE IN CHANNELO -FOR 
LATER ACCESS 

IF t AT THIS POINT* CHANNEL ORDER IS 1 
THEN LINE NUMBER MUST RE UPDATED 

COMPARE ORDER OF CHANNEL TO NO. OF 
ACT 1VE CHANNELS PROMISED 

IF NO. NAS GREATER. THIS MUST BE 
THE BEGINNING OF A NEW GROUP OF 
CHANNELS. DATA MUST BE ACCESSED IF 
AT THIS POINT, NOCHAN PR IS NOT THE 
NUMBER ‘PROMISED' IN HOUSEKEEPING 


ACCESS LINE NO. - IF BACK TO FIRST 
CHANNEL. LIME NO. HAS CHANGED 
UPDATE LINE NO. 

STORE CURRENT VALUE IN, L I MENO 
AT THIS POINT IN THE ORIGINAL VERSION 
TH E LINE NUMB ER WAS C OM PARED TO THE 
TOTAL NUMBER OF LIMES LI ST ED IN 
HOUSEKEEP IMG. HOWEVER , HOUSTON JSC 
NOW ASSURES GSFCIOCT. *74) , THAT THAT 
VALUE IS INVALID. SO. NO CHECKS MADE. 
STORE CORRECT LINE NO. INTO SCAN 
ARRAY FOR USER USE 


* DEBUG AID 

MV I BUG! ,C • I ' 

■J, ' • •••’• ' • 

O’* 

CHAMOK L R3.CHANNEL0 INSERT CURRENT VALUE OF CHANNEL 

* ORDER NO. 

S R 3 , = F ' 1 ' DECREMENT IT 

SR R2.R2 PREPARE FOR MULTIPLICATION -THE 

M R 2 ♦ = F ' 4 ' RESULT WILL BE THE DISPLACEMENT 

* VALUE NEEDED TO ACCESS CORRECT 

* CHANNEL NUMBER 

L R4.CHNVL ( R3 ) 



j^UGBSiAL PAGE IS POOR 
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ST R4, CHANNEL STOKE CORRECT NO. ,( ACTUALLY ONLY 

* 'CORRECT' SO FAR AS WHAT IS 

* RECORDED BY HOUSTON FOR THAT 

* CHANNEL NAME - ACTUAL CHANNEL 

.* NUMBERS PI FFER -CHANNELS HERE, IN 

* PAIRS, ARE COMPLETE INPUT CHANNELS) 



STH 

R 4, SC AM 

STORE CORRECT CHANNEL NO. IN SCAN 




ARRAY 

V 

s'c 

DEBUG 

AID 


V 

MV I 

BUCK , C 1 K • 


V 

SR 

R2 ,R 2 



M 

R2 » =F • 2 ' 

MULTIPLY DISPLACEMENT TO CHANNEL 

V 



VALUE ARRAY BY 2 TO GET PROPER 

■J. 

*r- 



DISPLACEMENT FOR SLOPE AND 

%•« 



INTERCEPT ACCESSING, (THERE ARE 




2 WORDS IN THAT ARRAY FOR EACH 




CHANNEL 


ST 

R3,SLDTSPL 

STORE VALUE FOR LATER USE 


LTR 

R3,R3 

• 


BP 

LATERFIL 

IF NON-ZERO, (POSITIVE) , CHANNEL 


IS MOT THE FIRST SO ANCILLARY 
BLOCK IS NOT PRESENT, (AND NEED 
NOT BE READ THEREFORE) 


* ANCILLARY BLOCK IS READ AT THIS POINT 

* NOTE - DESCRIPTION OF ANCILLARY BLOCK GIVEN BY JSC IN 

* PHO-TR 543 REFERENCES THE POSITION OF VALUES IN THE • 

* ANCILLARY BLOCK ITSELF - HOWEVER, THE ANCILLARY BLOCK 

* IS ACTUALLY PRECEDED IN THE FILE BY A 2 BYTE FILE NO. 

f THIS IS EXPLAINED ELSEWHERE IN PHO-TR 543. 

* ‘ ! | • 

ANCILRY L R 8 , POS I N F I L INSERT CURRENT VALUE OF 

* DISPLACEMENT WITHIN FILE 

LA R 6, SCAN MOVE DIRECTLY, THE TIME IN TENTHS 

A R 6 • = F • 2 4 * OF MILLISEC. AT THE START OF DATA 

LR R5 , 1 INITIALIZE R5 TO ADDRESS OF INPUT ED 

* PHYSICAL RECORD 

AR R 5 , R8 VALUE OF POS1NFIL, IN KEG. HR, IS ADDED 

, MVC 0(4, R6) ,0(R5) NOTE THAT AT THIS POINT, POS INF I L 

* TWO- FROM CODING ABOVE, (AND ASSUMING 

* THE DESCRIPTION OF TAPE CONTENTS 

4 SUPPLIED BY HOUSTON IS CORRECT. 





LA 

RR , 4 ( HR ) 

UPDATE DISPLACEMENT 


CALL 

HR M NSC , ( (R9> , 

(ICC .)' UPDATE H 0 UK, MI M U T E A N D SECO N D 

s'* 

L 

1 , ADD AT. 

RESTORE ADDRESS OF DATA 

r* % 

V 

5|5 

DEBUG 

AID 



MV I 

BlJGLt CL' 


3jC . 

5*i 

■ RECORD 

CHANNEL STATUS 

j 

OF ONLY THE ACTIVE CHANNELS 


LA • 

! . • 

R4 , 0 ' 1. 

DISPLACEMENT TO CHNVL ARRAY 


LA 

R 5 » 2? 

INITIALIZE STATUS LOOP INDEX 


LA 

R6» 28 

INITIALIZE DISPLACEMENT TO 


LA 

R3, 1 

POSITION IN SCAN ARRAY FOR 

$ 



STATUS VALUES 

CHAMSTAT BC 
%</ 

y? 

y c 

o ... ■ 

► 

c 


5» c 

?»* 

><« 

DEBUG 

AID 


A*. 

MV I 

BUGH * C ' M ' 



uses it 


SR 

R2,R? 

. 


; 3 

IC 

R2,0(RB,1 ) 



T i; 

STH 

R2 ♦ SCAN ( R6 ) 

STORE STATUS VALUE 

IN OUTPUT ARRAY 

■ --A 

LA 

R6 * 2 ( R6 ) 

U P DA T E 01$ P L A C E M E NT 

TO SCAN ARRAY 


LA 

R 8 , 1 ( R 8 ) 

UPDATE DISPLACEMENT 

TO ANCILLARY 


C 

R2 , =F ' O' 

: DATA, (WITHIN FILE) 

V - 

- - -v| 

BNE 

USES IT v-M-E' 

CHECK IF CHANNEL IS 

ACTIVE 


ST 

R 3, CHNVL ( R4 ) 




LA 

R4,4( R4 ) 


: : ■ * ' • 


BC 

0,0 





DEBUG AID 

MV I BUGN , C ' N ' 

LA R3,1(R3) 
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; .ajfe:4tt(5* 


R 5 ♦ C H A [>i S T A T 


* 

❖ 


BCT 


COMPLETE CHANSTAT LOOP 


SKIP SCAN LINE NO. AS IT IS NOT 1 TO 1032 ON THE TAPE* RUT 
SOME ARBITRARY NO. BETWEEN ANOTHER ARBITRARY NO. , N , AMD 
M + 1 0 3 1 . THEREFORE LINE COUNT IS PERFORMED DYNAMICALLY IN • 
PROGRAM i 


CONTAN BC 0,0 •CONTINUE* FOR PASSING CONTROL 

* NEXT, VALUES OF LATITUDE , LONGITUDE » ETC. ARE RECORDED. NOTE, 

* ALL ARE RECORDED ON INPUT TAPE AS: SIGi'HONE BYTE) .DEGREES, 

r (ONE BYTE ) .MINUTES ( ONE BYTE). AND OUARTHR SECONDS ( ONE BYTE) 

* ALSO, LATER WE WILL CALCULATE ZENITH ANGLE FROM SUN ELEV. 


* 'ANGJL.E ACTUALLY FOUND ON 

5»' , ■■ ■' . 

* DEBUG AID " 

MV I BUGO.C ’ 0 • 

* 

LA R6.72 

'I' .■ 

L RR.POSINFIL 

LA R 8 » TO ( R 8 ) 


LA R 5 » 1 2 . 

* ; 

ANGLES! SR R2.R2 

1C R2.0IR8, 1 ) 
LTR R2.R2 

BP NEGVAL 

L R2 , = F • 1 ' 

B. ANGLE SGN 

NEGVAL L R2 » = F • - 1 * 

ANGLE SGN ST ’R 2, SIGN 

LA R8.1IR8) 

LA R7.3 

* 

* 

angles? sr rz.r? 

SR R3.R3 

IC R3,0(R«, 1 ) 

M R2 , SIGN 


APE 


INITIALIZE DISPLACEMENT TO SCAN 
ARRAY 

RE-INITIALI ZE DISPLACEMENT TO R8 
GIVE ANCILLARY DISPLACEMENT, ( POSIN 
FI L INCLUDES THE 2 BYTES FOR THE 
FILE NO. ) 

INITIALIZE INDEX TO ANGLES! LOOP 


INSERT SIGN 

IF VALUE IS 0001, NO. IS MEG. 

IF VALUE IS 0000, NO. IS PQS. SO 
MULT I PLY I NG FACTOR IS +1 
MULTIPLYING FACTOR FOR NEGATIVE 
CASE I S -1. 

STORE MULTIPLYING FACTOR IN SIGN 
UPDATE DATA ACCESS VALUE 
INITIALIZE INNER ANGLES 2 LOOP 
WHICH SECURES DEGREES , M I MUTES AND 
OUARTERSEC. 


INSERT VALUE 
MULTIPLY BY THE SIGN 
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STH 

LA 

R 3 , SCAN ( R6 ) 
R A , 2 ( R A ) 

STORE IN SCAN ARRAY 
UPDATE DISPLACE M E N T T 0 

SCAN 

ARRAY 

LA 

R 8 , 1 ( R 8 ) 

UPD'ATE DISPLACEMENT TO 

INPUT 

DATA 

PC T 

R 7 , ANGLES? 

C 0 M P I.FTF I M N F. R A MG L F S ?. 

LOOP 


BCT 

R 5, ANGLE SI 

COMPLETE OUTER ANGLES! 

Loop 



* WF NOW CONVERT ALL LONGITUDES TO WEST LONGITUDE ♦ < THI S 

* IS THE FORM MOST FAMILIAR TO GSFC EXPERIMENTERS). VALUES 

* ON TAPE ARE 0 TO -180, ( HEMISPHERE INCLUDING U.S.) AND 

* 0 TO 180, (HEMISPHERE INCLUDING EUROPE). 


THE FIRST THREE VALUES PROCESSED 
ARE FROM THE IMAGE FOOTPRINT , THE 
F OUR T H IS THE S P A C E C R A FT V A L UE, (THE 
DISPLACEMENT, (IN R3) WILL BE MODIFIED 
ACCORDINGLY 


WLON 

C 

R5,=F • 1 ' 

IS THIS THE FOURTH CASE? 


BNE 

WLONC 

IF NOT, CONTINUE 


LA 

R 3 , 7 8 

IF SO, INSERT DISPLACEMENT FOR 




SPACECRAFT LONGITUDE. 

WLONC 

LH 

R2 , SCAN ( R3 ) 



LTR 

R 2 , R ? 



BZ 

ZLOND 

IF ZERO DEG. CHECK THE MINUTES AT 



: T 1 : 

ZLOND.. 


BP 

subIw l !■;■■ 

IF POSITIVE, CO N V ERT , ( 3 60- AN G L E ) 

WDEGM 

LPR 

R2,’R2i | ' : 

GET POSITIVE VALUE OF ANGLE 


STH 

R2,;SCAN'( R3 ) 


WDE-GM 

LH 

R2 , SC AN+2 ( R3 ) 

CHANGE MINUTES 


LPR 

R2,R? 



STH 

R2 , SCAN+2 ( R3 ) 


WDEGS 

LH 

R2 , SC AN+4 ( R3 ) 

CHANGE SECONDS 


LPR 

R2,R2 



STH 

• R2 , SCAN+4 ( R3 ) 



LA 

R3,1?(R3) 



BCT 

R 5, WLON 

COMPLETE WLON LOOP 

$ 

B 

Z EMC ON 

■ IF DOME, ZENITH CONVERSION IS NEXT 

SURH 

L 

R4,=F'240» 

TO CALCULATE THE VALUE OF LONGIT. 


LH 

R2 , SCAN + 4 ( R3 ) 

SUBTRACT MSEC., MIN., AND DEG. RES- 


LPR 

R 2 , R 2 

PECTFULLY FROM 240 MSEC., 59 MIN., 


SR 

R4,R? 

AND 359. DEG. TO GET ACTUAL DIFFERENCE 


LH 

R2 , SCAN+2 ( R3 ) 

INSERT ABSOLUTE VALUE OF MINUTES 


LA R 3 , 1 1 0 

LA R 5 , 4 






LPR 

R2»R2 



c 

R4 ♦ = F ' 240 * 



HI. 

GLOMS 



S 

R4 1 = F * ?40 ' 



s 

R2»*F' 1 ' 


GLOMS 

STH 

R4 * SC AM+4 ( R3 ) 



L 

R 4 ♦ = F 1 5 9 ' 



SR 

R 4 » R 2 



LH 

R2 ♦ SO AN ( R3 ) 

INSERT ABSOLUTE VALUE OF 


LPR 

R2,R? 

DEGREES 


C 

R4t=F ' 60' 



RL 

GLONM 



S 

R4 » =F ' 60 • 



S 

R2.-FM ' 


GLONM 

STH 

R4 ♦ SC AN+2 ( R3 ) 

STORE CORRECTED MINUTES 


L 

R4» =F ' 359 ' 



SR 

R4,R2 



STH 

R4« SC AN ( R3 ) 

STORE CORRECTED DEGREES 


LA 

R3 » 1? ( R3 ) 

. 


BCT 

R5t WtON 

COMPLETE WLON LOOP 

ilc 

B 

ZENCON 

IF DONE* ZENITH CONVERSION 

T . 

ZLOND 

LH 

R2» SCAN+21 R3) 

TEST MINUTES 


LTR 

R2 «R2 



BZ 

ZLONM 



BP 

SUBW 



R 

WDEGM 


ZLONM 

LH 

R2 » SCAN + 4 ( R3 ) 

TEST SECONDS 


LTR 

R2 ♦ R2 . 



BZ 

UPDATLON 



BP 

SUBW 



B 

WOEGS 


UPDATLON LA 

R3,12(R3) 

UPDATE DISPL. TO LONGITUDE 

# l* 

BCT 

R 5, WLON 

COMPLETE WLON LOOP 

* 

ZENCniM 

BC 

0,0 


%»- 

*•* 

NOW CONVERT THE SUM ELEVATION AKiGLE TO ZENITH ANGLE 

5 I ; 

* 

VALUE 

IS 90 DEGREES MINUS 

SUM ELEVATION ANGLE 

:W“ • 

V 

V 

O F RUG 

AID 



MV I R.UGP ♦ C • P ' 
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l. H 

R? , SC AM+ 106 


L 

R 3 , = F ' 2 4 0 • 


SR 

R3 , R2 


LH 

R2 , SCAM+1 04 


C 

R3,=F ‘RAO* 


BL 

GOODOSFC 


S 

R3 , =F ' 240 ' 


S 

R? ♦ = F ' 1 ' 

Gnnoosec sth 

R3, SCAM+1 Oft 


L 

R3 ♦ =F • 59 1 


SR 

R3.R2 


LH 

R2. SCAM+1 02 


C 

R3.=F'60» 


BL 

GOO DM IN 


S 

R3 . =F • 60 1 

* 




s 

R2 , =F ' 1 • 

GnnOMI N 

1 STH 

R3 , SCAN+104 


L 

R3 , =F ' 89 » 


SR 

R 3 , R 2 ■ 


STH 

R3 , SCAN+102 




3jc 



-.1* 

1- 

s fc 

DEBUG 

AID 


MV I 

BUGO.C 'O' 

*r 

THE NEXT 21 PARAMETERS ARE 

■j+ 

( THEY 

ARE S-l 92 PARAMETER 

'i- 

• •" 

'i' 

n E S C R I BED I W P HO -T R 54 3 ) 

“V 

LA 

R5 .'SCAN 


A 

R5 » =F * 1 44 ’ 


LR 

R6.1 


A 

R6.P0SINFIL 


MVC 

0(8 4, R5) , 1 1 8 ( R 6 ) 


SR 

R2,R? 


IX 

P.2 , 202 ( R6 ) 


TCI n F RIVE n T FEE R E WC E R E T W E E M S l J M 
ELI-V. ANGLE AMD 40. OF GR F F S , 

SDR T R A C T O S F C . , M I N . , D G . , FRO M 240 
MSEC. ,59 M I N . , 8 y n E GR PFS Y I E 1 0 1 N G 
ACTUAL DIFFERENCE. 

CHECK THAT DIFFERENCE IS NOT GREATER 
T H A N SO H T R A C T E 0 VALUE. 

IF MOT* CONTI MU F 

IF SO, SUBTRACT 240 

SUBTRACT ONE, THEN, FROM MI MUTES 

STORE CORRECTED VALUE OF QSEC FOR 

ZENITH 

SUBTRACT MINUTES FROM 59 


HERE, DI FF E RE MC E W A S G R F A T E R THAN 60 
SO 60 IS SUBTRACTED AMD DEGREES 
VALUE IS DECREASED BY 1, 

STORE CORRECTED VALUE OF MIN. FOR 
ZENITH : 


STORE ZENITH DEGREES IN SCAN 
ARRAY 


MOVED DIRECTLY 
VALUES A J, THRU A HI AS 


INSERT SCAN SHIFT DELAY FLAG 


LR 

R3 , R? 

TEST IF GIVEN BYTE WAS 

LA 

R4, 24 

NEGATIVE 

SI. L 

R 3 « 0 ( K 4 ) 

IF NOT, LEAVE AS IS 

LTR 

R 3 , R 3 ' 

IF SO, THE ONLY POSSIBLE 

BP 

ST OR FLAG 

VALUE IT COULD HAVE, < ACCORDING 

BZ 

STOP FLAG 

TO THE HOUSTON DESCRIPTION), IS 

L 

R ? , =F ' - 1 1 

-1. INSERT THAT VALUE INTO SCAN. 

STORBLAG ST 

R2.SCAN+22H 


LH 

R2 , 204 ( RB ) 


ST 

R?,SCAM+?32 

STORE AZIMUTH 

A 

R5 , =F • 92 ' 


MVC 

0( 12, K5 ) , 2 4 B ( R 6 ) 


4 THESE 

LAST THREE VALUES ARE 

RESPECTIVELY THE GROUND VELOCITY 


* MFTERS/SEC t THE ALTITUDE IN METERS AND THE ORBITAL INCLINATION 

* ANGLE IN QUARTER ARC SECONDS - THESE CONCLUDE THE ANCILLARY 

* BLOCK VALUES. 

•• . ' 

■*/ DEBUG AID 

y 

MV I BUGR.C 'R ' 

LA R A- . 262 ' UPDATE VALUE OF POSINFIL 

ST R4, POSINFIL 

* ; V 

* THIS NEXT SECTION CONCERNS THE ACCESSING OF REGULAR DATA 

* 

LATERFIL BC 0,0 IT IS EXPECTED THAT THE ERRORS IN 

* MAGNITUDE ENCOUNTERED ON EARLIER 

* TAPES WILL HAVE BEEN CORRECTED ON 

* ALL TAPES RECEIVED AFTER 9/1/74 - 

* DATA IN UNITS OF 

* • WATTS /C ? /M I CR ON/ ST EK 

L R3 , CHAMMELO DOUBLECHECK THAT CHANNEL NUMBER IS 

S R3 , r F • 1 • ALL RIGHT 

SR R 2 , R 2 

M R 2 , =F 1 4 1 

L R?,CHMVli( R3 ) 

. LH R4 , SCAN ! 

CR R2,R4 1 

BE A OK 

STH R 2, SC AN 

AUK BC 0,0 

L RB, POSINFIL ' INITIALIZE DATA ACCESS REGISTER 

L 1 , ADD AT REINITIALIZE REG. I WITH 
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ADDRESS OF DATA* (MAY 0 I F F If K 
IF OAT A ACCESS IS NIJT THE 
FIRST FOR THAT PHYS. REC. ) 


■O 


5{; 

DEBUG 

AID 


1 


MV I 

RUGS ,C ' S ' 


I 
• $ 


LH 

R 5 » H 0 U S E K + 23 0 

DET. TOTAL NO. PIXELS/CHANNEL 

■ js 

f 


LA 

R7.24B 

INITIAL 17 E OUTPUT INDEX FOR SCAN 

1 


L 

R6.SLDISPL 

INITIALIZE SLOPE-INTERCEPT 

■ 1 
|j 

'i s 



DISPLACEMENT 

if. 

ii- 

it 

'i s 

PIXELS 

SR 

R 2 * R 2 


1 


IC 

R 2 » 0 ( R A » 1 ) 

INSERT PARAMETER VALUE 



FLOAT R? ♦ R? 

CHANGE TO FLOATING POINT 

; I 


ME 

R2. SLIiY+4(RA ) 

MULTIPLY BY SLOPE 

. i 


AE 

R 2 ♦ SL I N ( R6 ) 

ADD THE INTERCEPT 


V 



STOP E IN SCAN OUT P U T aRR A Y 

-i 

' ' 1 


STE 

R2 » SCAN ( R 7 ) 


■ J- 

'i s 

: r 

* 

DERUG 

A I D 


V- -."’I 

MV I 

RUGT.C • T • 


1 

'I s 

LA 

RRtl(RR) 

UPDATE DATA ACCESS DISPLACEMENT 

■ 'i 


LA 

R7.4IR7) 

UPDATE OUTPUT ARRAY DISPLACEMENT 

. ■ | 


BCT 

R5. PIXELS 

COMPLETE PIXELS LOOP 

. • . ' | 


ST 

• RR tPOSI NFIL 

STORE CURRENT VALUE OF HR, (DATA 


* 

sic 



ACCESS DISPLACEMENT) INTO POSINFIL 

j 

& 

i!c 

DEBUG 

AID 


" . T 


MVl' 

RUGU.C 'U ' 



h c 

L 

R2t NS CAN 

DET. WHETHER LISTING OF SCAN DATA 



. LTR 

■ R? » R2 

IS DESIRED 



R7. 

NOTWSHSC 

IF NOT * SKIP CALL TO PRNTSC 

’ . • . . . i 

T 



MOTE THAT SINCE DATA IS LOADED 



DIRECTLY I ;\'Tn CALL PROCRAM AREA 
RED. R 9 » CALL ARGUMENTS ARE ALL 
(R9) INSTEAD OF SCAN. ALSO , DATA 


VIA 


CALL 

NOTWSHSC BC 
* R-F STORE 


REFERENCE RIVEN A TIMES SINCE 
VARIOUS TYPES OF DATA , ( M t AL * I NTEGEK , 
ETC;) AH F FOUND I N SCAM. 

PRNTSC , U R9) , ( R9) , ( R9) , (P9) ) , VL 

0,0 

ALL BUT HOUSEKEEPING •BURS’ 


MV I 

R U G E , C 10 ' 

MV I 

BUGF,C«0* 

MV I 

RtJGG , C 1 0 ' 

MV I 

RUGH.C '0* 

MV I 

BUG I , C ' o ' 

MV I 

BUGJ ,£> 0 ' 

MV I 

RUGKtfc ' O' 

MV I 

BLJG1. » C 1 0 ' 

MV I 

BtJGM , C ' 0 5 

MV I 

RUGN , C ’ 0 ' 

MV I 

RlJGOfC 8 0 * 

MV I 

BUGP , C ’ 0 ' 

MV I 

RUGO * C ' O' 

MV I 

BUGR ,C • 0 ' 

MV I 

RUGS , C ' 0 ' 

MV I 

PUGT , C ' 0 ' 

MV I 

RUGU , C ' 0 ' 

L 

R 2, NOCHAN PR 

S 

R2 » =F • 1 *j 

ST 

R2,N OGHAM PR 

LA 

R A , 0 | 

L 

R 5, ADC ALL 

L 

R5 , A ( R 5 ) 

ST 

RA,0(R5 ) 

L 

13 , A ( 13 ) 


RETURN ( 1 A , 1 2 ) * T 
ERROR EXIT ! 


DECREMENT THE NO. OF CHANNELS 
LEFT IN THE PHYSICAL RECORD 

INSERT DATA TYPE INDICATOR* ( REGULAR 
DATA) 

SECURE ADDRESS OF CALL ARGUMENTS 


RETURN PROCEDURE 

RESTORE REGISTERS AND RETURN 


ERRFI LNO LA 

/ ' L 


RA, 1 1 

R 5, ADC ALL 
R5 , A ( K 5 ) 

R A , 0 ( R 5 ) 
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ji, 

# 

j'; 

DEBUG 

AID 



NVI 

RUGV.C '.V ' 


❖ 

L 

13,4 ( 13 ) 


j 

RETURN ( 1 4 , 1 2 ) » T 

RESTORE REGISTERS AND RETURN 

* 

END IJF 

FILE EXIT! 


V 

FMOOf i 

LE LA 

R4,2 



L • 

R 5, ADC ALL 



L 

R 5 * 4 ( R 5 ) 



ST 

R 4 , 0 ( R 5 ) 






* 

DEBUG 

AID 



MV I 

BUGW «,C ' W' 



: L. 

13,4(13) 

RETURN PROCEDURE 


RETURN ( 14,12 ) ,T 



INITIALIZE VARIABLES AMD STORAGE HERE 

LTORG HERE PLACES ALL LITERALS REFERENCED IN PROGRAM HERE 
LTDRG 


THESE VARIABLES ARE INITIALIZED FOR DEBUG USE 


DC 

C 'O' 

DC 

CO' 

DC 

CO' 

DC 

C'O' 

DC 

C'O' 

DC 

C'O* 

DC 

C'O' 

DC 

C 'O' 

DC 

C'O' 

DC 

C'O' 

DC 

C'O' 
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RilGC 

do 

C 

•0 • 

BIJG1) 

nc 

C 

•0 ' 

HUGE 

DC 

C 

•O' 

HUGE 

DC 

C 

•O' 

BIJGG 

DC 

C 

•O' 

HUGH 

DC 

c 

'0* 

BUG I 

DC 

c 

' 0 ' 

BUG J 

DC 

c 

'O' 

BUCK 

. DC 

c 

'O' 

RUG L 

DC 

c 

•0 ' : 

BIIGM 

DC 

. c 

* O' 

BUGM 

DC 

c 

'O' 

BUGG 

DC 

c 

'O' 

BUGP 

DC 

c 

'O' 

BUGO 

DC 

c 

•O' 

BUGR 

DC 

c 

•O' 

BUGS 

DC 

c 

'O' 

BUG! 

DC 

c 

•O' 

BUGU 

DC 

c 

'O' 

BUGV 

DC 

c 

'O' 

BUGU 

«.•* 

DC 

c 

•O' 

•Vl 



; - / : 

«.u 

•V .. ■ 

INPUT 

TAPE 

DESCRIPTION 


«A» 


T P 1 9 2 D C B DS HR G - P S , M A C R F = ( G L ) , 0 D N A M E = T P 1 9 2 , E 0 D A D = E N D 0 F I L E , D E V D = T A 

* 

*i\ , 

* VARIABLES - 


ADC ALL 

DC 

F'O' 

TEMPORARY STORAGE FOR ADDRESS OF 
CALL ARGUMENTS 

ADDAT 

•v 

DC 

F'O' 

TEMPORARY STORAGE FOR ADDRESS OF 
Tv INPUT DATA /. T/. 

BLANK 

DC 

C» ' 

TEMP. STORAGE FOR VALUES WHERE 
BLANKS MUST PRECEDE 

CHANNEL 

DC 

F'O', ; 

WILL CONTAIN ACTUAL CHANNEL 
NO. FOUND ON TAPE 

CH ANN FLO 

DC 

F'O' 

WILL CONTAIN THE ORDER OF THE 

CHNVL 

* 

V* 

DC 

DC 

F'l,?,3,4,5 rf 

F'21 ,?.?' 

> , 7 , R , 9 , 10, 1 1,1? ,13, 14,15,16,17, 18,19,20* 
THIS IS THE ARRAY OF CHANNEL VALUE 
INTO WHICH ACTUAL NAMES ON TAPE WI 

r Mr c y TCh 

V 

CIND 

DC 

F'O' 

1 l>J otK 1 t U • 

TEMPORARY STORAGE AREA ALLOWING 
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FACTOR 

DC 

F • 1 • • 

DOUBLE USE OF REGISTERS 
' DATA MODIFYING FACTOR. BY WHICH 

' 

V 

»i. 

FPT 

DC 

2F 1 0 ' 

ALL DATA MUST BE MULTIPLIED - 
FOR ALL B U T THE 1 0 T H CHA M N FL » I T W I L 
BE 1000. FOR THAT ONE ♦ IT IS 1. 
TEMPORARY STORAGE USED 

❖ 

L I MEMO 

DC 

F » 0 * 

PRIMARILY FOR MACRO FLOAT 
ST PR AGE FOR CURRENT LINE NO., 

%«/ 

T 

NCPMD . 

DC 

F 'O' 

UN ORDER ) OF SCAN 
INDICATOR OF CONDITION - 

*\ z 

iMHQUS 

DC 

F * 0 ' 

IF 0, GOOD DATA PRRSENT . 

IF 1, ERROR WAS ENCOUNTERED, OR 
IF ?, AM END OF FILE WAS ENCOUNTERED 
INDICATOR AS TO WHETHER USER 

5 !' 

MOCHAMPR 

DC 

F • 0 * 

’ DESIRES HOUSEKEEPING DATA LISTED 

CONTAINS THE NO. OF CHANNELS LEFT 

* 

MOFIL 

DC 

F ' 0 1 

IN THE PHYSICAL RECORD 

CONTAINS THE -NO. OF FILES READ IN 

%i+ 

V 

V 

«A. 

N S C AM 

DC 

F ' O' 

THE CURRENT DATA SET FOR THE CURRENT 
LINE. IT WILL BE LESS THAN OR EQUAL 
TO THE NO. OF FILES NEEDED TO 
COMPLETE ONE SCAN LINE FOR ALL 
CHANNELS, (AT PRESENT, 10). 

INDICATOR AS TO WHETHER USER DESIRES 

•»*# 

*i" 

POSIMFIL 

DC 

F 'O' 

SCAN DATA- SISTED 

CONTAI NS CURRENT POS IT ION I N 

•A. 

SAVE 

DC 

1 8 F ' O'. 

CURRENT PHYSICAL RECORD 
SAVE AREA FOR LINKAGE 

SIGN 

DC 

F ' 0 ' 

TEMPORARY STORAGE FOR SIGN OF 

■ ■ ■ 

'C • 

❖ 

SLDISPL 

DC 

F *0 ' 

ANGLES SUPPLIED IN THE ANCILLARY 
BLOCK 

DISPLACEMENT FOR ACCESSING SLOPE- 

V 

* 

TOT LI NFS 

DC 

F ' 0 ' 

INTERCEPT VALUES FOR CURRENT 
CHANNEL 

TOTAL NO. OF LINES TO COMPLETE ONE 

USEDIT 

DC 

F ' 0 ' 

SCAN ■ : 

INDICATOR INITIALISED TO ZERO, 0 

■J+ 

* 

*5* 

WORD 

DC 

o 

LL 

WHICH REVEALS WHETHER HOUSEKEEPING 
DATA HAS BEEN READ, (WHETHER FIRST' 
TAPE ACCESS) 

USED TO STORE A THREE BYTE V ALU E 


TEMPORARILY - INSERTS LEADING 7 ER 


THEREBY 


.V 
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ARRAYS IN STORAGE 


HOUSE K DS 605F 

SUM ns 50F 


SCAM DSECT 


FMD 

// EXEC SAVE 
//link. object no * 
NAME ZBM JMR9? ( R ) 

/* 

/* 

/* 



HOUSEKEEPING ARRAY DATA 
SLOPE AMD INTERCEPT ARRAY - NOTE 
REFERENCE TO IT CAM HE. ".MADE WITH 
PROPER DISPLACEMENT FROM HOUSEK 
REFERENCE POINT FOR SCAN DATA, 
(STORAGE, VIA REG. 9, ACTUALLY IN 
CALLING PROGRAM) 




jSte-i 


' »•••;: • 

■i:; i 


//ZBFJMPL1 JflB ( S10122604D,P,L00360, 001003 ) , R 16 , MSGLE VEL = 1 
//* THISDATE LOO 1 1 
// EXEC FORTRANH 

//SOURCE. SYS IN 00 * ! 

C THIS PROGRAM WAS WRITTEN BY F. MILASI OF CSC FOR TASK 092 ♦ 
SKYLAB, UNDER CONTRACT NAS-5-11999 IN FEBRUARY t 1974. 

IT UTILIZES THE WOLF PLOTTING AND CONTOURING PACKAGE » BY 
READING IN THE INPUT DATA CARDS ♦ AND CHECKING THEM AGAINST 
THE OPTIONS THAT THE WOLF PLOT PACKAGE OFFERS. 

ALSO DR. CURRAN ( GSFC ) HAS REQUESTED THAT THI S PROGRAM 
SREACH THE INPUT TAPE (NEW $191) AND DO ONLY THOSE TIMES 
THAT ARE REQUESTED THRU THE DATA CARDS. AFTER READING THE 
DATA CARDS AND FINDING OUT WHICH DEVICE AND PLOTTER THAT 
WAS REQUESTED, IT WILL THAN UTILIZES SUBROUTINE CLOUD, 
PLOTT , CLDWRT 




C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


■: 3 ) 

I ■ 




Q <v -v V 'i- *v* *i' 'i' "i' -v 'i' sjc s}c 3|C S|£ sjc Sp 5p S{C ?Jt 2 {C 2 p ?{? sjc sjc sjc s|c sjc sjc s{c sjs sjc s|s sjc sjs sjc sjc sjc sjc sjc sjc sjc sjc sjc sjc sjc sjc sjs sjc # sjs ?jc 3{c s{c 

^ v Sp 3,C s{c 3p Sp Sj? sjc ?,f '?,« jjc s[« SjC S t C Zfi 5 ( J 5p S|C S|C j{» s|c Sp Sp S,C SjC 5 ( £ s{C Sp Sp ijc Sp S|* J,{ Sp ?|C 5,C 5|c Sp sjj S,C 5,C 3,5 Sp Sp Sp Sp Sp Sp ?jc Sp Sp Sp S,C S ( C 3[C 3|C Sjf SjC sjl Sjc 
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y f 

S l 
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COMM ON/D A T9 1/DATUS( 450 ) , CLOUDS , R E F ( 1 14 ) ,TBB( 104 ) ,WR$191,NNN, 
1RRR ( 114) , TTT ( 104) 

DIMENSION I VALET 5 ) « I DE V ( 3 ) » PLOTS ( 5 ) » DEV I C ( 3 I , 

1RAD ( 114) , WAVER ( 114) » R A D T E M ( 104 ) ,WAVETl 104) 

EQUIVALENCE ( DATUS( 1 ) t I DATA ( 1 ) ) , ( DATUS ( 233 ) » R A D ( 1 ) ) , 

1( DATUS( 15 ) , WAVER ( 1 ) ) , (DATUS ( 129 ) , WAVET( 1 ) ) , ( DATUS ( 347) , 

2R ADTEM ( 1 ) ) 

REAL*8 PLOTER, PLOTS 

NAMELIST/ INPUT/ PLOTER, I PRINT, MONTH, I DAY , I YEAR , IHOUR, 

1 MINUTE, I SEC, I END HR , IENDMI, I END SC 


DATA PLOTS/ 'CALCOMP 
1' PRINTER • / 

DATA I VALE /2000 , 0030 , 0020 , 00 10 , 0001 / 
IPRINT/O/ 

MONTH/0/: ; 

I SEC/O/ 

I ENDHR/O/ 

IENDMI /O/ 

I END SC /O/ 

I DAY/ 0/ 

ITEAR/O/ 

IHOUR/O/ 

INTEGER*2 I DA TA ( 6 ) 

LOGICAL CHCLD/ . TRUE . / 

LOGICAL ENOCH/. FALSE./ 

LOGICAL CHCLD/. FALSE./ 

LOGICAL STPLD/. FALSE./ 


• , ' SC4020FH ' , ' SC40208H 1 , 'SC4020CF • 


1 

1 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
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LOGI CAL*A CLOUDS 
LOG I CAL* A WHS 191 
NNN = 0 

READI5, INPUT) 

5 CALL FREAD ( DATUS » 1 2 , NOM » f»16Q, 65 ) 

IF ( ENOCH )G0 TO 130 
I F ( CHCLD ) GO TO 120 
I F ( MONTH • EO . O’) GO TO 90 
I F ( MONTH . EO. I DATA ( 1 ) ) GO TO 10 
WRITE! 6» 1000 ) MONTH, I DATA M ) 

STOP 

10 IF! I DAY . EO. I DAT A ( 2 ) )G0 TO 20 
WRITE! 6,2000) I DAY, ID AT A! 2) 

STOP ; ' 

20 IF! I YE AR . EO. I DATA { 3 ) ) GO TO 30 
WRITE! 6,3000) I YEAR, I DATA! 3 ) 

STOP 

30 IF! I HOUR . EQ . I DATA ( A ) ) GO TO AO 
GO TO 5 

AO IF! MINUTE.EO. IDATA! 5) )G0 TO 50 
GO TO 5 , 

50 IF! I SEC. GE. I DATA! 6) )G0 TO 55 
GO TO 5 

55 ENDCH= . TRUE . 

DO 70 1=1,5 

IF ( PLOTER.ED.. PLOTS! I ) )G0 TO 80. 
70 CONTINUE 

GO TO 90 

80 MUM= I VALE ! I ) + I PR I NT 
MUMM=A 
CALL NOSTAE 
CALL CPR I ME ( 2 ) 

CALL PLOT ST ( NtJM , NUMM ) 

GO TO 120 
90 CHCLD= . TRUE . 

IF! STPLD ) GO TO 120 
STPLD=*TRUE. 

Ml)M = 00 10 
NUMM=A 
CALL NOSTAE 
CALL CPR I ME! 2) 

CALL PLOTST ( NUM ,NUMM ) 

120 CALL CLOUD 
GO TO 5 
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130 I F ( I DATA ( 4 ) . L E . 0 . AND . I DATA! 5 ) • L E • 0 • AND • I DAT A ( 6 ) . LE • 0 )G0 TO 160 
I F ( I ENDHR . GT . I DATA I 4 ) ) GQ TO 120 
I F ( IENDHR.LT. J D A T A ( 4 ) ) G'O TO 160 
I F ( I ENDM I . GT . I DAT A ( 5 ) ) GQ TO 120 

IF! IENDMI.LT. IDATAI 5)TG0 TO 160 • . 

I FI I ENDSC • GE . I DATA ( 6 ) ) G0 TO 120 

WRITE! 6, 5000) MONTH, I DAY, I YEAR, I HOUR »MINUTE, I SEC, I ENDHR, 

1 1 ENDM I , TEN DSC 
160 CALL SETRLK! 999 ) 

CALL ENDPLT 

WR 1 T E ( 6,4000 ) NNN 

WRITE( 6, INPUT ) 

1000 FORMAT! 1H0, ' PLEASE CHECK INPUT DATA * , ' MONTH ' , ' DOES NOT AGREE WIT 
1H INPUT TAPE ', 10X, 'MONTH-' ,1X,I4,5X, ' IDATAI 1 ) = ', IX, 12 ) 

2000 FORMAT! 1H0, • PLEASE CHECK INPUT DATA ','IDAY',' DOES NOT AGREE WITH 
1 INPUT TAPE • , 10X, • IDAY=» , IX, I4,5X, • I DATA! 2) = ' , IX, 12) 

3000 FORMAT! 1H0, 'PLEASE CHECK INPUT DATA ' , • I YEAR ' , ' DOES NOT AGREE WIT 
1H INPUT TAPE ' ,10X, ' I YE AR= ' , IX , 1 4 , 5X , ' I DAT A ( 3 ) = ' , 1 X , 1 2 ) 

4000 FORMAT! 1H0, 10X, ' NUMBER OF FRAMES PLOTTED ' , 2X , 1 4 ). 

5000 FORMAT! 1H0,5X, 'START T IME = ' , IX , I 2 , IX , I 2 , IX , I 2 , IX, I 2 , 1 X , I 2 , 1 X , 

112, 5X, 'END T I ME = ?■ , IX, 12, IX, 12, 1 X , I 2 ) 

. . STOP ■ j 

END 

SUBROUTINE CLOUD 

: C0MM0N/DAT9 1 /DATUS ( 450 ) , CLOUDS , REF ( 1 14 ) , TBB ( 1 04 ) , WRS 19 1 , NNN , 

IRRR! 114) ,TTT ( 104) 

DIMENSION RAD! 114 ) , WAVER! 114) ,TEKVAL ( 1 14 ) ,RADTEM( 104 ) , 

■ 1WAVET! 104) ,DETA( 55) ,DATAB( 59) ,REFCOR! 114) 

EQUIVALENCE ( DATUS! 1 ) , I DATA! 1 ) ) , ( DATUS ( 233 ) , R AD ( 1 ) ) , 

1! OATUS! 15) , WAVER! 1 ) ) , ( DATUS! 129) , WAVET! 1 ) ) , ( DATUS ( 347 ), RADTEM ( 1 ) ) 
•EQUIVALENCE ( TEKVAL ( 1 ) , DETA ( 1 ) ) 

EQUIVALENCE ( TEKVAL < 56 ) ,DATAB ( 1 ) ) 

INTEGERS I DAT A! 6) 

DATA CONE/3. 7413E+04/ 

DATA CTW0/1.4388E+04/ 

DATA PI/3,1416/ 

DATA RADI/. 017453/ 

DATA DETA/ 

XO. 16721,0.16390,0.17500,0. 17736,0.17464, 

XO. 16922,0. 16394,0.16663,0.18101,0. 19219, 

XO. 2008 3, 0.20647 ,0.20332,0. 20733,0. 19471 , 

XO. 19414,0. 18 839.0. 18340,0. 1840 7,0. 178 24, 

XO. 17271,0. 16964,0. 17125,0. 17150,0.16996, 

XO. 16657,0. 16345,0. 16020, 0.1 570 1,0. 15439, 

XO, 15111,0. 14859,0. 14560,0. 14271 ,0. 14018, 
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XO. 1 2 3 5:0* 0.1? 110,0. 11850,0. 1 1590,0. 1 1340, 

XO. 11090,0. 108 55 »0. 10600 ,0. 10360,0. 10130 ♦ 

XO. 09900, 0.09680, 0.092 60, 0.089 10, 0.08690/ 

DATA DA TAB/ 

XO. 084 70, 0.08200, 0.078 50, 0 .07480,0. 0 7 160, 

XO. 06840, 0.06530, 0.06230 ,0.0593 0,0. 05698, 

XO. 05466, 0.052 50, 0.05050, 0.048 50, 0.04662, 

XO. 04474,0 .04298,0.04134,0.03970,0.03814, 

XO. 03658, 0.03538, 0.03454, 0.033 70, 0.03 170, 

X-0. 02976, 0.02880, 0.02 796, 0.027 12, 0.026 26, 

XO. 02538, 0.02450, 0.02362, 0.02274, 0.02 188, 

XO. 02 104, 0.02020, 0.0 1932, 0.0 1844, 0.0 17 58, 

XO. 01674, 0.01 590,0. 01454,0. 01324, 0.01 21 2, 
n X0.01 1 18 ,6.0 1030, 0.00978, 0.00926, 0,00878, 

% XO. 00834, 0.00790, 0.007 50, 0.007 10, 0.00676, 

1 XO. 00648, 0.00620, 0.00592, 0.00564/ 

| DATA REFCOR/3. 98, 3. 25, 2. 21, 1.63, 1.37, 1.34, 1.45, 1.39, 1.24, 1.107, 

I 11. 067, 1.047, 1.057,1. ,1.057, 1.067, 1.028,1. ,0.964, 0.938, 0.895, 

20.895 .0. 912.0.895.0.887.0.879.0.863.0.871.0.871 .0.887.0.887.0.895, 

| 30.912,0.912,0.887,0.871,0.904,0.920,0.929,0.938,0.946,0.955, 

i 40. 973, 0.982, 0.991,0.991, 0.982,0. 973, 0.964, 0.973, 0.982, 0.991, 

51. . 1..1..1..1..1..1..1..1.,*1.,1.,1., 1.018,1. ,0.982, 0.965, 1.012, 

f 61.018,1.018,1.012,0.965,0.965,0.965,0. 970 ,0.959,1 . ,1 . , 1. , 1 . , 1.021, 

I 71. ,1.008,1 .025,1.042 , 1.042,1.047,1.042,1.021, 1. , 0.979,0.967 , 0.971, 

I- — I 1 80 . 996 , 1 . , 1 . ,0.996,0.928, 0.97 1 ,1. 008, 1 . , 1 . , 1 . , 1 . , 1 . ,0.898 ,0.883, 

: 90.932,0.890,0.872,0.812,0.857,1.056/ 

: NNN-MMN+l 

I I F ( DATUS ( 10) . L T .0)00 TO 20 

f DO 10 1=1,114 




ANG=DATUS< 10)*RADI 
AC=CnS ( ANG ) 

I F ( AC.LE.O. )G0 TO 15 

IF(TEKVAL( I ) . LE .0 ) GO TO 15 

REF < I ) = ( PI*RAn( I ) ) / ( AC*TEKVAL ( I ) ) 

RE(r( I )=REF( I )*REFCOR( I ) 

RRR ( I ) =R EF ( I ) 

IF ( REF ( I ) .LE.O. )REF( I )=0. 

I F ( RRR ( I ) .LE .0 . ) RRR ( I ) =0 . 

IF (REF ( I ) . GT , 1 . 0 ) REF ( I )=1.0 
GO TO 10 
15 RFF ( I ) =0. 

RRR ( I ) =0 . 

10 CONTINUE 
20 DC) 30 K -1,104 




I F ( R ADTEM ( K ) . LE . 0 , ) GO TO 35 

TAfi= 1 •+ ( CONE/ ( P I * ( < WAVET(K) ) **5 ) *RAOTEM ( K ) ) ) 

I F ( TAB . LE . 0. ) GO TO 35 
T A A = H A V E T ( K ) *A L 00 < TAB) 

IFITAA.LE.O, ) GO TO 35 

TBB(K)=C.TWO/TAA 

TTT ( K ) = TBB( K ) 

I F ( TBB ( K ) . L T .190 . ) T BR ( K ) = 1 90 . 

I F ( T B B ( K ) .GT. 310. ) TBB ( K >=310. 

GO TO 30 , 

35 TBB! K ) =190. 

TTT ( K ) =0 . 

30 CONTINUE 
CALL PLOTT 

RETURN . 

END 

SUBROUTINE PLOTT 

C 0 M M 0 N / D A T 9 1 / D A T U S ( 4 5 0 ) , C L OU D S , R E FI 1 14 ) » TBB ( 104 > , WRS191 , NNN, 
1 R R R ( 114) ,TTT( 104) 

DIMENSION WAVER! 114) , WAVET ( 104) 

EQUIVALENCE < DATUS! 1 ) V 'I DAT At 11 ) » ( DATUS! 15 ), WAVER (1)0 
IT DATUS (129 ) » WAVET f 1 ) ) 

LOG I CAL* 1 LABLL! 14)/ ‘CLOUD DATA XXX'/ 

LOGICAL*! LABEL ( 13 ) / • S 19 1 DATA XXX' / 

LOG I CAL* 1 CH/' '/ 

LOG I CAL *4 CLOUDS 
LOGICAL* 4 WRS191 
R E A L * B LAT ,L0 N G .ZENIT H 
INTEGER *2 I DATA! 6) 

DATA RXHI ,RXLO,RYHI ,RYL0/2.6,0.4, 1.0,0./ 

DATA BXHI .BXLO.RYHI ,BYLO/ 16. 0,6.0 » 310. » 190./ 

CALL SETGRO! 1. , 1 .,8. ,4.0,4) 

CALL OGRID! RXLO.RXHI , 11 , ' F4. 1 ) ' , 1 , RYLO, RYH I , 5 , ' F3. 1 ) ', 1,0) 

I F ( DATUS ( 10) « L T . 0 ) GO TO 10 
C A LL 1 P LO T ( WAVER, REF, 1 14, CH) 

10 CALL HORLIN! •WAVELENGTH' ,10, 5.0, 0,-5, 8) 

CALL VERLINf 'REFLECTANCE' , 11,0. ,2. 5, 4, -2) 

CALL SETGRO! lL ,4.5,8. ,7.5,4) 

CALL QGRID! RXLO, BXHI ,10, ' F4. 1 ) » , 1 , BYLO , B YH I , 6 , 'F4.0 ) ', 1,0 ) 
CALL PLOT! WAVET ,TBB , 104.CH ) 

CALL VERLINf 'T B B • , 5,0. , 8. 5,4, -5 ) 

CALL HORLIN ( ' MM ; DO YY • , 8 , 1 • , B . 0,0,1) 

CALL HORL INC ' HH MM SS ' ,B, 2. 5,8.0 ,5,1) 

CALL HORL I N ( ' SUN ZENITH ANGLE ', 16,4.0,8.0, 5, 1 ) 

CALL HORL I NT ' LATITUDE ' ,8,6. 0,8.0, 3,1 ) 


C-50 






CALL HORL I N ( ' L QNG I TIIDE » , 9 , 7 . 0 , H . 0 , 7 , 1 ) 

CALL I NCORE ( I DAT A I 1 > , I MONTH , 1 B , 1 ,2,0,0) 

C ALL I NCriR E ( I DATA < 2.) , I D AY , 1 B , 1 , 2 , 0, 0 ) 

CALL I NCORE ( I DAT A ( 3 ) , IYEAR,1B,1 ,2,0,0) 

CALL I NCOR E ( l DATA ( A ) , I HOUR , 1H , 1 , 2 , 0 , 0 ) 

CALL INCHRE* IOATA( 5) i IMIiY, 18,1,2,0,0) 

CALL INC ORE ( I DAT A ( 6 ) , I SEC , 18 , 1 , 2 , 0 , 0 ) 

CALL EDIT ( DAT US ( 10), 'F A. 1/', ZENITH, NO, NO) 

CALL EDIT ( DATUS (4), ' F5 . 2 / ' , L AT , NO, NO ) 

CALL EDIT (DATUS ( 5) , * F 5 . 2 / ' , LONG, NO, NO) 

CALL HORL INI I MONTH, 2, 1 . 0 , B . 0 , -5 , - 1 ) 

CALL HORL I N ( I DAY , 2 , 1 . 0 , B .0 , 1 , -1 ) 

CALL HORLINI I YEAR,?, 1.0, B.0, 6,-1) 

CALL HOR L I N ( 1 HOUR ,2, 2. 5, 8.0, -1,-1 ) 

CALL HORL I N ( I M I N , 2 , 2 . 5 , 8 . 0 , 5 , - 1 ) 

CALL HORL I N ( I SEC ,2 , 2 . 5 , 8 . 0 , 1 1 , - 1 ) 

CALL HORLIN( ZENITH, 4,4.0, B. 0, 5,-1) 

CALL HORLINI LAT, 5,6.0, B.O, 5,-1 ) 

CALL HORL I N't LONG, 5,7 .0,8. 0 » 8 , - 1 ) 

I F (CLOUDS ) GO TO 20 

CALL ED I T ( NNN , • I 3 / * , LABEL (11), NO , NO ) 

CALL HORL I NIL ABEL ,13, 5.0 , B . 0 , -4 , 4 ) 

I F ( WRS19DG0 TO 25 
GO TO 30 

20 CALL ED IT (NNN, *13/* , L ABLL ( 12) , NO, NO) 

CALL HORL IN ( LA8LL , 14, 5. 0,8. 0,-4, 4 ) 

25 CALL CLDWRT 
30 CALL FRMADV 
RETURN 
END 

SUBROUTINE CLDWRT 

COMMON /D AT9 1/ DATUS ( 450 ) , CLOUDS, REF ( 1 14 ) , TBB < 104 ) ,WRS191,NNN, 
1RRR ( 114) , TTT ( 104) 

DIMENSION WAVER ( 1 14 ) , WAVET ( 104 ) 

EQUI VALENCE ( DATUS ( 1 ) , IDATA( 1 ) ) , ( DATUS( 15 ) , WAVER ( 1 ) ) , 

1 ( DATUS ( 129) , WAVET ( 1 ) ) 

LOG I CAL*4 WRS191 
INTEGER’! 5 2 I DATA ( 6 ) 

i f ( .not . clouds ) go to 10 

WRITE! A, 1000) NNN 
GO TO 20 

10 WR I TE( A, 1500 ) NNN 
20 WRITE! A , 2000) 

WRITE (A, 3000) ( I DATA ( I ) , I = 1 , 6 ) , DATUS ( 10 ), DATUS ( 4 ), DATUS 1 5) 

WR I TE ( A , 4000 ) 


I F ( D A TU S ( 10) • li T . 0 ) GO TO 10 

WRITE! 6,5000 ) (WAVER ( I ) »RRR( I) ,1 = 1,114) 

30 WRITE (4, 6000) 

WRITE! 6,7000) 

WRITE! 6, H 000) 

WRITE (6, 9000) (WAVET(l) , TTT ( I ) ,1 = 1,104) 

1000 FORMAT! 1H1,T56, 'CLOUD DATA*, IX, 13) 

1500 FORMAT! 1H1 ,T56, 'SI 91 DATA', IX, 13) 

2000 FORMAT ( 1H0,4X, • MONTH ' , IX , ' DAY ' , IX , ' YEAR ' *3X , 'HOUR • , IX, « M I NOTE ' , 

11 X, 'SECOND' , 13X, 'SUN ZENITH ANGLE ' , 16X , • L AT 1 TUDE ' , 16X, ' LONGITUDE'.') 
3000 FORM AT ( 1 H .» 6X , I 2 » 3X , 12, 2X, I 2 , 5 X , I 2 , 4 X , 1 2 , 6 X , 1 2 , 2 1 X , F 4 . 1 , 2 2 X , F 5 . 2 , 
22 1 X , F 5 . 2 ) 

4000 FORMAT! 1H0,4X, 'WAVELENGTH' ,6X, 'REFLECTANCE' ,6X, 'WAVELENGTH', 

1 6 X , ' REFLECTANCE • ,6X , • WAVELENGTH* ,6X , 'REFLECTANCE ' ,6X, 

2 • WAV E LEM GTH ' ,6X, 'REFLECT ANC E * ) 

5000 FORMAT ( 1 H , 6 X , F7 . 5 , 9X , F B . 5 , 9X , F7 . 5 , 1 OX , F8 . 5 , 9X , F7 . 5 , 9 X , F8 . 5 , 

1 10X, F7. 5, 9X, FB. 5 ) i i ' I, 

6000 FORMAT! 1H , \ 

7000 FORMAT! 1H ,20X, 'TEMPERATURE' ,22X, ' TEMPERATURE ', 2 IX , •TEMPERATURE', 
123 X. 'TEMPERATURE' ) 

8000 FORMAT ( 1 H ,4X , ' WAVFLENGTH ' ,6X , ' BRIGHTNESS ' , 7X , ' WAVELENGTH ' , 6X, 

1 'BRIGHTNESS* ,6X, 'WAVELENGTH' ,6X, ' RR IGHTNESS ' , 7X, 'WAVELENGTH* , 

27X , ' BRIGHTNESS ' ) ' ^ 

9000 FORMAT! 1H , 6 X , F8 . 5 , 7X , F9 . 5 , 9X , FB . 5 , 7X , F9 . 5 , BX , FB . 5 , 7X , F9 . 5 , 

1 9 X , F 8 . 5 , 8 X , F 9 . 5 ) 

RETURN 

END 

BLOCK DATA 

COMMON /DA T9 1 /OATUS ( 450 ) , CLOUDS » R EF ( 1 14 ), TBB ( 104 ), WRS 19 1 , NNN , 

1RRR! 114), TTT! 104) 

LOGICAL CLOUDS/. FALSE./ ■ 

LOGICAL WRS 191 /.TRUE./ 

END 

// EXEC LINKGO, REGION. G0=225K 

//LIMK.SYSLIB DO DSN=S YS? . WOL FPLOT , DI SP=SHR 

//GO . FT 1 2 FOO 1 DD UM I T = ( 2400-9 , , DEFER ) ,DCB = < RECFM = VBS» 

// LRECL = 1804, 8LKS I ZE = 30672 , D EN = 3 ) , LABEL = ( , BL P ) , r—i ' 

// V0L=SER=L0003 

//GO. PLOT APE DD DC8=( ,DEN=1 ) , LABEL= ( , BLP , ,OUT ) ,UNI T= ( 7 TRACK, , DEFER ) , 

// V 0 L = S E k = T EM S A V 

/ / GO . W 0 L F 402 0 DD DCR=( ,0EN=1 ) , LABEL = ( , BL P , , OUT ) , UN I T= ( 7TR ACK , , DEFER ) , 

// V 0 L = S E R = T E M S A V 

//GO. SYSUDIJMP DO SYS0UT = A . • 

//GO. DAT A5 DO * 

£ INPUT P L 0 T E R = ' SC 4 0 20C F * , I PR I NT = 1 £END 
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bRIGCSfAL PAGE IS POOR 







APPENDIX D - CLOUD S-191 PLOT PROGRAM LISTINGS, INPUT, 

AND JCL OUTPUT 


~T ~ 


l*FI*?l - STFP WAS FXFOITFR - CCIND CODE 0000 

IEF2fl*il SYS2.LQAOL ID KEPT 

I EF2PS I VflL SEP NOS= K3SYS4. 

IFF28M ?YS?*W0LFf»LOT KEPT 

IFF2PSI VOL SFR NOS* M25VS2. 

1FF2A5I SYS2. DUMMY KEPT 

IFF2flSI VOL SER NOS= K3SYSS. 

IEF2A5I SYS l .FORTL I 3 KEPT 

IEF2RSI VOL S C R Nn5 = K1SVSE. 

ICFppS! S VS2 • FOR I L I E KEPT 

l€*2B5f' # VOL SEP NO S * < 3 S V S < • 

IEF2PS! * SYSI.PLiLiO KEPT 

IFF2fi5 1 VOL $E W NOS = KiSYSt. 

IEF265I SYSUFOPTSSP KEPT 

1EF2R5I VOL SEP NOS- K3SYS2. 

ifFaasi sy 52 • cool i n kept 

IFF ?8 K f VOL SFR NOS a K 35 YSA • 

|FF2e*51 * SYSl.ALGLIO KEPT 

IEF?<55I VOL SEP NOSY K 3SVS 1 • 

IEF2R5I SYS7A21 2-rOS?3? c # »VCOC« /OF JwnLS.LOCMCO PA5SE0 

fFp?eS I VOL SEP NOS a KTSfR?. 

IFF26SI SYS7A2I 2 • T 0* 23 2S. S VCO 0« 7'1F J *°LS • «9 C 0 CSC7 - Y SOL T 

I FF 20 5 I VOL SF» NCS.s. K3SCR3. 

I FF? $5 I SY S7 4 2 1 2-» T 0 *33.2*. R V C C C. 7 OF J V PLS • PO 000 500 DFLE TED 

T EF?e5t VOL SEP NPS Y XlSCP? * 

IFF2P^r SVS742I 2.TO5232S.RV0OO. TR* JWPLS.CB JMOD DELETED 

I EF ?es ! VOL SEP NOSY < T«CP4# 

IFF *<7 3 I STEP /LINK / START 74?t !>.;T «1 | 

SEF374I STEP /LINK /STOP 7421.?. CPU 0«IN 02.62SEC MAIN I 30K LCS OK 

- STEP 0 ? — • RETURN C 00“ a 0003 STEP TINE * 

10 IN SECS. 01SK= 24.65, DRUM= *52,TAPE= 


•45 NINSalCPU* 
• 00 1 CELL a 


XKGO FXEp P GN = • .L I NK . 5 Y SL MOO , C C Nf)-| A.L T I . R«yG l 0N = 7 OK 

XKFTOSFOOIOO OONAMEsCATAS 

XKFT06F0 01 00 SYS OUT « A • DC F - I P ECFN* VO A , LPECL^ 137,!3L<SI ZE=7265I 
K AFT0 7FOO I 00 SYS0UT4R .DCP=( PEC^N-^Q* OLKS I ZF s?p SO .LP6CL *flC > 
KKSYSPRINT DO SYSOUT^*.DCe = ( pECFmyVB A , L»FC,Ly 1 3? . BL*S I 2^-7265 ) , 

XX SPACED CCYL.IO. I M .UN I T = ( 01 SK , 2 » 

✓ ✓CO.FT1 2F00 1 DO UN I T Y < 2 A 0 O'* S , » OFFFP > « OCO - ( R ECF W = V3S « * 

✓/ LPFCL—1 7RN * OLK S t ZFa 30S30 f C?N =3 > . L ADEL = ( .RL D J. 

✓/ VOLaSFR=Y-l 40 

/ /CO* PLOT APF DO DCO=t .CEN-1 I .L4GFL=< .OLP t • CUT ) .UN I T=< 7 TR ACK . .DEFER) « 
// VOL = SFR=L004* 

//GO. W0LF4Q20 00 CC*S=( ,DEN= t | «L ARE L = ( »0LP# .OLTI.UNl T=|7 TRACK .. DEFER >• 
// VOL=SFP=T fM*>AV 
/ /GO. SYSUOUMP DO S YSCU Ts A 
/ /GO * DAT A5 OD * 

✓ / 

IEF23SI ALLOC. FOR 20FJM»LS GC 
IEF237I 232 ALLOC* TED To OGN=*.PO 

I EF237I ?31 ALLOC A TEC TO c TCSFQOl 

IEF237I 33 2 ALLOCAT FO TO FTOftFOOj 

I EF237 I 332 ALLOCATED TO FTC7F00I 

I FF237I 332 ALLOCATED TC SY SPRINT 

XEF237I 231 ALLOCATEO TC. SY SPRINT 

I€F237t 232 ALLOCATEO Tq SYSPRINT 

16F237I OCT ALLOCATED TO FT 12F0 0I 

I EF 2 371 OCO ALLOCATEO TD PLOT*PF 

IEF23TI ODO ALLOCATED TO WOLF AO 20 

IEF237 1 332 ALLOCATED TO SYSUOUMP 


00023000 
00024000 
00025000 
00026000 
00027000 
0 0028000 


„ n m OF W' 

fflSKSS-’ 0 * 


riv-mar 


KEPT 


— If •' 


1 


II 


iefsps t 

lerspsr 

1EF?PSI 
ICFSP6 r 
I trze^i 
IFF? P'5 1 
IE^2«5I 
?EF2P5! 

ICF?pr,| 

|FF3«5 I 
IFF? I 
|FF?e?r 
I CFJP5 I 
ISF245 1 
I 5F2PSI 
IFF2P5! 
IFF2P5! 


PASSED 


svsnui 


DELETED 


OELETE D 


DELETED 


DELETED 


sysin 


deleted 


0000 1000 
0C002000 
00003000 
00004000 


-STEP was EXFC1ITF0 - CCNO cope 0004 
IEF285I SYS 3. TO ANSI. AT 

VOL 5PP Nf)5 = K3SY5S. 

SYS? 42 l ?.TO5 2T2*i.RVO0O. ZflF JMPL5# COOHOP 
VOL SF.P NOS’ K^^CWA. 

5 V 5? 4.? 1. 2 • TO * ?3 P* 5 * SVCOO. Z*r JMPL 5 • RO CO 05 0 I 
VOL SFR NOS “ <; <SC»4 . 

SVS743I 2.T0f 23PS.SVOOO. /nr JWFLS.BOCOOS02 
VOL SFR NOS- XlSC*** 

SYS7421 2.T052335.Q VCOC. /RF JMPLS • RO 00050 3 
VOL SE» NOSs K3SCRS. 

SVS?421 2.T0E 23? ,r . RVC0C.;!nF JMPLS. F0C0 050A 
VOL SER NOS = K3SCR?* 

SYS743I 2«T0*232F.SVC0C*Znr JMFLS.F0C00505 

vol sep no*** *3scr«. 

SYST421 2.TP*33^E#RVC0C. 2pF JMFL5. SO C00506 
VOL SEP NOS = K3SC*3 • 

SV S 7421 2.T 0S237F.P V0O0*2HF JMELtri S0C005C6 
VOL SEP NOS- K3SCR3* • 
lCF37ir STEP /SOURCE / START 71212.1 RC2 

!E«f?74l STEP /SOURCE / STOP 7421 2* 1 31 1 CPU CM I N 10.02SEC MAIN 248K LCS OK 

- STFP 01 - RETURN COPE = 000* STEP TIME * #84 MINS*|CPU* 

tO IN SECS. DISK* 40.05. DRUM* . 42 ♦ TAPE* .00. CELL* 

// EXEC LI N* GO. PEG I ON. GO*? ?SK 

M*t>EFAULT PROC NHLK=#o PROC*LlNKGO 0ATF=722?7 

XXtilNK f*EC “r,MsiFVL.PAoM=tMAP,LIST>,COM>*l4.LTl.REG!CK = l 50* 

XXliOAOLI » 00 0SNAMF-SYS2.LCADL IH.O ISP-SMR 

XXNEWLlN DO DUMMY 

//li-INK.SYSLIB OP DSNsSvS2.VOL'=PLnT.*OtSP=SHO 
X/SVSLlB 00 0SNAME = SYS2.0UMMV.CliSP-SHR 
PSNAME=SyS2.DUMMV.DI sf^sho 

0SNAME-SYS1 .FCRrLI’l.DI 

OSNAME^SYSP.FOPTLtR.O ISPsSHC 
OSNAMF- SYS1 .pl 1L |P »01 SP“Shc 
OSNAMEkSVSI .FCFTSSP.DTSP=:SPR 
OSNAME- SYS2. rOEL fp*ni SP-SMP 

DSNAMF =SYS l . ALGL. !H .0 I SR -SHR 

DSN AME = &tLaOMCD)|CSFC:).DtSP-=t NEW. PASS) . 

SPACE* C 61 44 , { £Mj)L< .20 .1 )»iUMT = 0lSK 

IEF6F7I S'JOS T t TUT ION JCL - S P AC I 6 ! 4 4 , ( « C .2 0 . 1 » I • UN I T *0 IS K 

XXSVSPPI NT DO SVSOUT* * »CC B* < R EC*M=FD v», LR C CL= 121. ELKS UE*350R ) 

XXSYSUTl op UNI T*| 0 ISK . SFP*( 5YSLMOO .SVSPP 1 NT ) I . SP ACF=( TRK .< 20 .5) ) 

XXTAPELIP 00 DUMMY. C ISP*< OLC, KEEP!) *UM T* CRTRACK, .DEFER) • 

XX LABEL* C .QLP) • 

XX | 0CR*( .RECFM = FO*LRECL=EC.HLKSl 2E*330ai 

XXSYSLIN 00 OSNAME*L&ORJMOO*PI5P=( OLO.OFLFTEI.CCflsRECFMsFB 
XX 00 DON AM £si 00 J FC T 

I EF236 1 ALLOC. p OR ZBFJMPL5 LINK 
IEF237 I 337 ALLOCATED TC LJ0 4QLI P 
IEF237I 326 ALLOCATED TO SYSLT3 
ALLOCATED TC 
ALLOCATED TO j . 

ALLOCATED TO j' 

ALLOCATED TO j 
ALLOCATED TO 
ALLOCATED TC 
ALLOCATED TC 
ALLOCATED TO SYSL*00 
ALLOCATED TO SYSPRlNT 
ALLOCATEO TO SYSLT1 
ALLOCATED TO SYSLIN 


f 


.16.10* 

• 00 fOTHR" 


• 081 
• 15 


X X i 
XX; 

XXSVSLMOC 


00 

OO, 

00 

DO 

00 

00 

DD 

OD 


0000 SO 00 
00006000 
00007000 
00008000 
OOOOROOO 

oootoooo 

OCOHOOO 
OCOI 2000 
40001 3000 
00014000 


OCOI 6000 
0001 7000 
400019000 
40001*000 
00020000 
OC 021 000 
00022000 


1EF237I 335 
IEF237I 334 
t€*23?i 335 
»F*237I ?3* 
IEf| 2371 335 
IEF237I 334 
1MF2371 336 
l€F237| 232 
IfFTITI 232 
lfT237I 231 
IEF237I 331 



F 128-LFVEL LINKAGE tf> | TOO OPT ICKS SP^C IF1FO MP.U5T 

OE FAULT OPTIQNISI USED - SI /** I 13 10 73 « I 2288 J 


MODULE MAP 


CONTROL SECTION ENTRY 


NAMF 


ORIGIN 

LENGTH 

NAME 

LOCATION 

NANG 

LOCATION 

NAME 

LCCATION 

NAME 

LOCATION 

NAf N 


op 

714 









CLOUD 


rin 

46A 









PLOTT 


HAS 

AAA 









CLOW RT 


V A A 0 

486 









OAToj 


1908 

DD4 









INC SLOG 

• 

26E0 

186 

■ i 

ALOGIO 

?6E0 

ALOG 

26F8 





PLOT ST 

* 

289 8 

OCA 

Cal s i z 

13F0 

CPRINF 

3 A 3C 

DEVSET 

34BC 

SETGRO 

3906 





SA8SI2 

1504 

SETLET 

1.5E0 





VECTOR 

• 

166 0 

IRA 

ENOPLT 

a 1 9 a 

FRMADV 

A |6C 

PANS 

4160 



IHCNAMFL* 

41 F 8 

4CP 













FRCNL* 

A |F fl 

P4PNL# 

A7FC 





FREAO 

A 

A CCS 

IA6? 

FREADB 

AEFC 

FWRI TF 

4F80 

REWIND 

5106 

! LEAVE 

«7A 





UNLOAD 

5 3 1 E 

EG SN 

5 A 2 A 

MOUNT 

561 C 

MEMBER 

970 A 

-PAIN 1 YAOL A 

6710 

C8 








fpli 

* 

67F8 

A 









IHCECOWH* 

6800 

F6I 













IOC0A* 

6800 

FOIOCSA 

69RC 

I NTSWTCH 

7746 



IHCCOMH? A 

7760 

680 


; • 











SEQDASO 

7AE0 







nostae 


7 DCS 

9C 









CALCW» 

* 

7E6S 

*0 AC 










C TRANS 

8D9A 

SET8LK 

3E00 

blkadr 

BE54 



IHCSSCN 

A 

BED 8 

109 

COS 

BEB0 

5 IN 

8 EDO 





EDIT 

A 

CO 9 8 

606 









0 K AGLN 


C770 

hoc 

HOfiLlN 

05 1 C 

VERL IN 

05CC 

RANCNR 

D67C 

TVPOFF 

0736 





TICM*K 

0760 

Lseoev 

0020 





IMCFRR M 


0880 

5 DA 

1 

ERR8CN 

0600 

IHCERRE 

0898 





INCORE 


0E58 

27C 


i ■ 







GRID 


Eoce 

1082 

OGRIO 

F028 

PLA8EL 

FIO0 





PLOT 

* 

FI 80 

9BE 

COCRD 

F A AO 

NFGLOG 

FAO0 





AFFINE 

A 

fbao 

120 A 

CATAOJ 

1 0 ASS 

GENPLT 

10AC8 

TCOORD 

10B24 

SCALE 

10006 





POLAR 

I0C64 

PSTGRO 

10CB4 





ucs 


10048 

A56 









IHCFCVTHA 

1 It AO 

M90 












D-4 








w ms&m 


i 

SI Rl data I 


WONTH OAT YEAR 

MHUO WlNLTE 

SEC ONO 

SUN JEN 1 TH ANGLE 


LATITUDE 

LONGITUDE 


4 3 73 

14 11 

1 

20 

0 

• 

0 


16.08 

63.50 


wavelength 

9 r fl r c T * n c e 

WAVELENGTH 

reflectance wavelength 

REFLECTANCE 

WAVELENGTH 

REFLECTANCE 

0*40000 

0.07 327 

0.40500 

0.08903 

0.41000 

, 0.11930 

0.41500 

0.16048 

0*42000 

0.173 |P 

0.425C0 

0*16648 

C.43000 

! 0*16461 

0.43500 

0.17034 

0.44 000 

0. |7«20 

0.4 45 CO 

0.18226 

| 0* A 50 OO 

0*19100 

0.46000 

0.19545 

0. AT 000 

0. 14494 

0.4 j?Q C 0 

C. 2 0206 

i O.Ja9000 

0*20193 

0.50000 

Of 19232 

0.5100 0 

0* 1 R«5? 

0* * j?0 C 0 

0. 1 e663 

j 0*53000 

C. 18151 

0.54000 

0.18040 

0.5500 0 

0. 16141 

0.5*000 

0.17362 

1 0*:570 0 0 

0*16167 

0.58000 

0.14719 

0.5000 0 

0. 13^15 

0.60000 

0.1 2 66 A 

0 *, 6 10 0 0 

0*13068 

0.62000 

0.13696 

0.63000 

3*1767 * 

C.640C0 

0.1 3450 

0*65000 

0*14075 

0.66000 

0.14314 

0*6700 0 

0*13723 

0.660CO 

0. 13032 

0*j690 00 

0*126 17 

0.70000 

0.11633 

0.71000 

0.11407 

0. 720C0 

0.12765 

0 *| 7 30 00 

0.13372 

0.74000 

O; 13711 

0. 75 00 0 

0. 1 

0. 760 CO 

0. 1 36*6 

0 *|770 00 

C* 1 41 97 

0.76000 

ol 14486 

0. 7900 0 

0. 14217 

0. 8C000 

0. 134 1 3 

0*81000 

0. 12532 

0.62000 

0.12122 

0. A3C00 

0. 124q* 

o.eAoco 

0.1 jM 49 

0 *| 8 5 0 0 0 

0*13423 

0.66000 

0.13596 

0.6600 0 • ' 

0.12241 

C. 90000 

0.08855 

0*92000 

0.05692 

0.94000 

0.03156 

0. 96000 

0.0547* 

l • oco 00 

0.07671 

1*02000 

0.081 34 

1.04000 

0.06275 

!. 06000 

9.074 1 c; 

1 . 0 60 CO 

0. 06840 

iJ 10000 

C. 06867 

1.12000 

0.01599 

1. 1400 0 

3.02012 

t* 160 CO 

0.05066 

l • 1 00 00 

0.07341 

1 .20000 

0.08356 

1.22000 

O.C9<?7 3 

1.240 CO 

0*09631 

1*26000 

C* too 14 

1.26000 

0.08587 

1 . 3000 0 

o.ooss? 

1. 32000 

0.03789 

1 *1340 00 

o.oi 2 ee 

1.36000 

6*0 

1*34000 

o.c 

1.40000 

O.o 

l.^AOOO 

C.O 1 0 90 

1.46000 

0.04539 

1* 50000 

0.07557 

1.520 CO 

0*0,9663 

1*54000 

0.09962 

1.56000 

0.10406 

1*6500 0 

0. 10403 

1 .6C0C0 

0.1 0643 

1*62000 

C.10773 

1 .64000 

0.10636 

1.66000 

0. Ill 00 

l .6*000 

0. 1 0900 

1 *70000 

0.09798 

1 .72000 

0.09757 

1. 74 00 0 

0. 07667 

1.76000 

0*Q«7t6 

1*79000 

0,02627 

1.60000 

0.00790 

1*6400 0 

0.0 

1 • 4*000 

0.0 

1*92000 

0.0 10 37 

1.96000 

0.01967 

2. 00000 

0.0 3^> f C 

2. C40C0 

0*061 C 3 

2*06000 

0.09160 

2.12000 

0.10019 

2. 16000 

0.0468 4 

i 2.2 CO CO 

C. 10339 

2* 24000 

0.09634 

2. 28000 

0.04425 

2. 32 0 0 C 

0 .041 P2 

2. 360 CO 

C. 01939 

2.40000 

0.0 

2.44000 

0.0 

2.46000 

0.0 , 








Tcvof.p* ju.P£ 


TFHPFRATUPE 


TENPtRATURE 


TEMPERATURE 

WAVELENGTH 

BRIGHTNESS 

wavelfncth 

brightness wavelength 

0RIGHTNESS 

WAVELENGTH 

brightness 

6*00000 

0 *6 

6.1 10 COO 

0.0 

6.20000 

0.0 

| 6.30000 

6.6 

6.40000 

0.0 

6 *| 5 0 C 0 C 

C.O 

6.60000 

1 0.0 

6.70000 

0.0 

6.60000 

0.0 

6 .'90 OO 0 

0.0 

7.00000 

195.26064 

! 7.10000 

0.6 

7.20000 

227.69134 

7*30000 

233.4951 C 

7,40000 

242.65533 

7.50000 

246.60164 

7*60000 

249.629R4 

7 .-70 COO 

24e. 52875 

7.80000 

255.24376 

7*90000 

258.98511 

6.00000 

266 .71026 

9.jl0000 

^76.34546 

8.20000 

284. 16553 

6.30000 

286.22705 

6.40000 

290.04932 

e*i so coo 

269.84668 

8.60000 

290.44092 

6*70000 

291.69531 

6.60000 

291.2436* 

a • 5 0 c 0 0 

292.69800 

9.00000 

292.88794 

9*10000 

292.60566 

9*20000 

2Q2.04510 

9*30 00 0 

288.60325 

9.40000 

280. 39819 

9.50000 

0.0 

9.60000 

269.10400 

9 •' 70 00 0 

n 

. 

O 

9.80000 

274!. 13477 

9.90000 

282.09033 

10*00030 

258.69526 

1 0 J 10 000 

j 292.84326 

10.^0000 

294.207 76 

10.30000 

294.93359 

10.40000 

294. 16457 

10.50000 

t. 294.41992 

10.60000 

294.96533 

10*70000 

294.97583 

10.^0000 

295.00830 

10*90000 

294.55029 

11.00000 

294.39673 

11*10000 

294. 48369 

11,20000 

204.13305 

11*20000 

293.06694 

11.40000 

294.00439 

11.50000 

293.60156 

I t *60000 

293.03740 

11^70 00 0 

292*85249 

It .90000 

292*23486 

1 1 *90000 

292.43555 

12*00000 

292. *6736 

12. 10000 

293*15430 ! 12*2000 0 

292*42969 

12.30000 

291.23169 

12.40000 

269.71336 

12*50000 

296.62254 

12.60000 

267.20410 

12.70000 

286.74561 

12* *100 00 

267.60864 

12.50000 

287.67261 113.00000 

297.01367 

13*10000 

263.64912 

13.^0000 

279.63521 

13.30000 

274.56120 

13.40000 

: 269.41797 

13.50000 

264.64819 

• 13.60000 

261 .23099 

1 3. 70000 

261.51 685 

13.80000 

i 258. 18555 

13.90000 

254.51669 

13*95000 

2*3 .46665 

14,00000 

2*2*8720 2 

14.05000 

252*26619 

14*10000 

251.16473 

14*15000 

249.37749 

1 4 *-20 00 0 

247.19958 

14.25000 

244*425 29 

14*30000 

240.63127 

14.35000 

236.6477* 

14.40000 

232.68443 

14.45000 

229*700 36 

14.50000 

226.41943 

14*55000 

224 . 0 72 ? 4 

14.60000 

221.19402 

14.65000 

219.38971 

14.70000 

217.03844 

14.75000 

215. 10*36 

14.60000 

214.40636 

14.90000 

213.50056 

16.00000 

212.57444 

15.10000 

213.7886* 

1 5. 20 COO 

207.82047 

15.30000 

201.56413 

19.40000 

192.44129 


D-6 


.TORODUCffilLlTY or THE 


. APPENDIX E - INTERPOLATION PROGRAMS CNTII91 AND CNTII92 
PROGRAM LISTINGS. INPUT. AND JCL OUTPUT 


o o n o o 'O n o o ,=o o o n o 


/ / ZBM JMOO 1 JOB ( S 1 01 226040 » T » L00360 » 00 2002 ) ♦ B 1 6 
//* THISDATE 

// FXFC FORT RANH * PARM= • 0PT=2 , X.R.EF » I D ♦ MAP , EBCDIC 1 » REGI 0N-300K 
//* NO TF - DEFAULT REGION ON 75 AMD 91 AFTER 6/12/74 IS ONLY 250K FOR 
//* FGRTRANH AND 1 50K FOR FORTRANG. MOST OF SKYLAB PROGRAMS USING 
//.* JCLFORT NEED 300K.; 

//SOURCE. SYSIN DD * * 

THIS PROGRAM WAS WRITTEN BY M. MACK OF C.S.C. 

FOR TASK 092 , SKYLAB. UNDER CONTRACT NAS-5-11999 
I N J ANIJ A R Y .1974. I T U SES A GAUSSIAN FILTER T 0 
•AVERAGE 1 SOLAR TRRADIANCE VALUES. SUPPLIED 
ORIGINALLY BY DR. THEKAKARA THRU DR. CURRAN 
I G S F C ) t- AND CONVERTED TO COMPATIBLE UNITS 
UNDER THE SAME TASK 092 BY PROGRAM 'CON', THESE 
•AVERAGES' ARE DERIVED CORRESPONDING TO EACH OF 
THE KNOWN SKYLAB S-191 WAVELENGTHS FROM .4 MICRONS 
TO, .74 MICRONS. FOR WAVELENGTHS BETWEEN .75 MICRONS 
AMD 2.5 MICRONS. ( SINCE THE FILTER ' SHAPE ' DOES NOT 
AFFECT THE IRRADIANCE VALUE ACCORDING TO DR. CURRAN), 

A STRAIGHT LINE (LINEAR) INTERPOLATION IS PERFORMED. 

LATER ANALYSIS USE OF, THESE VALUES WILL BE 


C ) 


i 1 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

G 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 


CONE I NED TO THE .4 TO 2.5 REGION SO OTHER 
KNOWN SKYLAB S-191 WAVELENGTHS WILL NOT 
RE CONSIDERED. 

CHANGED FROM NOPTS=113 TO NOP TS- 114 IN JAN.'75 TO 
ACCOMODATE NEW DATA. ( NEITHER SET A PERFECT SUBSET 
OF THE OTHER-I.E. ONLY OVERLAPPING). 


COMMON /OATATHV WVTH ( 3 297 ) , A I R TH ( 3 297 ) 
DIMENSION WAV SKY ( 114) .AIRSKYI 114) 


LOGICAL VARIABLE USED IN CODING 


LOGICAL DOl ;.i ! 

DATA NOTOAV tNOTO IN tNOPTS. NPTS/40.41 ♦ 114,3297/ 


NOTOAV IS THE NUMBER OF WAVELENGTHS WHICH MUST 
BE 'AVERAGED' USING THE GAUSSIAN FILTER. 
NOTHIN IS THE BEGINNING ELEMENT NUMBER IN WAVSKY 
AT WHICH LINEAR INTERPOLATION WILL BE USED. 
(IT WILL BE NOTOAV+1 ) 

NOPTS IS THE NUMBER OF WAVELENGTHS ALTOGETHER 
IN WAVSKY 

NPTS IS THE NUMBER OF WAVELENGTHS COVERED IN 
DR. THEKAKARA'S DATA 


DATA SIGMAF / 0.00625/ 


SIGMAF 


IT 


IS THE FACTOR 
IS MULTIPLIED 
VALUE FOR THE 
WAVELENGTH 
IS ACTUALLY EQUAL 


BY WHICH EACH WAVELENGTH 
TO DETERMINE THE 'SIGMA* 
FILTER USED FOR THAT 


TO THE FILTER 


HALFWIDTH 

HA L F MAX I MUM , ( I . E . TRANSMIS S ION I S R OUGHLY 
EQUAL TO A*E X P ( -X /S I GM A ) WHERE A IS AN 
ARBITRARY CONSTANT - SIGMAF WOULD BE THE 
VALUE WHICH WOULD YIELD HALF THE 
MAXIMUM TRANSMISSION VALUE) 

(WHOLE WIDTH GIVEN BY DR .CURRAN WAS 
EQUAL TO 0.0125 MICRONS - WE USE HALF!) 


AT 


FORMAT STATEMENTS 


1000 

1500 


FORMA T ( 5F10.0) 

FORMAT ( • THE FOLLOWING ARE THE ORDERED WAVELENGTHS', 
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1* FOR SKYLAB ' / , 'DATA - USED IN CONJUNCTI ON WITH', 

2' CALCULATED-ASSOCIATED'/. 'THEKAKARA DATA - S-191') 

17BO FORMAT! 1H1, ‘INPUT VALUES*/) 

?000 FORMAT ( 5X ♦ 'X* ,F7.3V' , • ,F7.3, ' ,F7.3, ' , ',F7.3, 

1 • , ' ,F7.3, ' , ' ) 

2500 FORMAT ( ‘END OF WAVELENGTH DATA - BEGINNING OF ' , 

1* CALCULATED-ASSOCIATED THEKAKARA'/, 

2 ' DATA - S 1 9 1 COMPARISON') 

3000 FORMAT! 5X, ' X • , F7 . 5 , • , •' ♦ F7 . 5 , ' , ' , F7. 5, • , ' , F7. 5, 

I ' , ' , F7 . 5 » ' V ' ) 

3500 FORMAT! 1H1 , 'DATA CALCULATED AND OUTPUT TO UNIT', 

1 ' 7'/, IX, 3(7X, 'WAVELENGTH' ,4X, ' IRRADIANCE VALUE', 

2 5X1//) 

4000 FORMAT! 1H , 14,'. • , 2 X , F 1 0 . 6 , BX , F 9 . 7 , 8 X , 14, '. ',2X, 
1F10.6,HX,F9.7,8X,I4,'.',2X,F10.6,BX,F9.7) 

4500 FORMAT ( 1H0 , 1 END OF PROGRAM - VALUES CALCULATED AND' 

1 ' PRINTED' ) ■■ 

6000 FORMAT ( 1 H , I 5 , 4E 1 6 . 8 , 3 I 5/ , 3 X , 5E 1 6 . 8 ) 

7000 FORMAT! 1H ♦ 1 5 , F 1 0 . 5 , 2 1 6 , 4E 16 . 8 ) 

AS THE FOLLOWING VALUE IS USED FREQUENTLY, BUT IS 
A CONSTANT, AND AS WE WISH THE LIMIT OF MACHINE 
ACCURACY, (AS WELL AS CONSISTENCY IN MACHINE 
CALCULATION), WE CALCULATE IT HERE. 

ALN2=AL0G ( 2 . ) 

WE NOW READ IN THE ARRAY OF DESIRED SKYLAB S-191 
COMPARABLE WAVELENGTHS 

READ (5, 1000) WAVSKY 

THIS FIRST LOOP WILL CALCULATE THE 'AVERAGE' DESIRED FOR 
WAVELENGTHS BETWEEN .4 AND .74 MICRONS - OUTER 
LOOP WILL DETERMINE LIMITS OF INNER LOOP 

DO 400 LB=1,N0T0AV 
WAV=WAVSKY( LB ) 

S I G = S I GM A F * W A V 

HERE, THE 'SPREAD' AMONG THEKAKARA'S DATA FOR 
NUMERICAL INTERPOLATION IS DETERMINED, ( I . E . , HERE , 

THE LIMITS OF THE INNER LOOP) 


W 1=WAV-S IG 



o o o o o o o n n n 


W2= WAV+S I G 
Dfll = .TRUE. 

C 

DO 150 1. Z = 1 « N P T S ' 

I F < .MOT. D01 ) 60 TO 100 
I F ( W 1 . 1. T . W VTH ( 1 ) ) GO TO 95 
I F ( W ] . G T « WVTH(LZ)) GO TO 150 

I 1 = 1. 7.-1 
001=. FALSE. 

I F ( Il.LT.l ) 11 = 1 
• GO TO 100 
95 CONTINUE 

II = 1 

001 = . FALSE. 

100 CONTINUE 

I F ( W2.GT.WVTHT LZ ) ) GO TO 150 
I 2 = I. Z + 1 
GO TO 200 
150 CONTINUE 
C 

200 CONTINUE 

I F C I2.GT.NPTS ) I2=NPTS 
C 

C NOW THE 'AVERAGE' MAY BE CALCULATEDI NUMERICAL 

C INTERPOLATION PERFORMED) 

C 

SIGPRD =ALN2/< SI6*SIG) 

SUM 1=0. 

SUM2-0. 

DO 300 LTR=I1.I2 

FIRST CALSULATE WAVELENGTH DIFFERENCE 
WO=WVTH( LTR )-WAV 


NOW CALCULATE - ( ( NU-NUO ) /S I GMA }**2 * LN2 

WD2P=-WD*WD*SIGPRD 

TAKE EXPONENTIAL OF ABOVE 

WEXP=EXP( W02P ) 

SUM 1 =SUM 1+WEXP 


so®*? 

OB . 1 


Am 


ooorv o o o o o o o o o nnoo 


C TAKE PRODUCT OF EXPONENTIAL VALUE AND IRRADIANCE 

A R W fi X P = A I R T H I L T R ) * W E X P 
SUM2=SUM2+ARWEXP 

WR I T E ( A ,6000 ) L R , W A V , W 1 , W2 , S I G, LTR ,11,12, 

1WD , WD2P , SUM 1 , AR WEXP » SUM2 
C 

300 CONTINUE 

AIRSKYILB )=SUM2/SUM1 
600 CONTINUE 

ON THE DATA BETWEEN .75 AND 2.5 MICRONS, WE 
NOW PERFORM STRAIGHT LINE INTERPOLATION 

DO BOO L D = NOTO I N » NOPTS 
WAV-WAVSKY ( LD ) 

IFIWAV.LT. WVTHI 1 ) ) GO TO 550 

FIND 'SURROUNDING' POINTS 

DO 500 L Z = 1 , N P T S 
J1=LZ-1 

J2 = LZ • 

IF( WAV.GT. WVTH(LZI) GO TO 500 
IFIJl.LT. 1) Jl=l 
I F I WAV . EO . WVTHI Jl)) GO TO 700 
IFIWAV.EO. WVTHI J2) ) GO TO 650 
GO TO 600 
500 CONTINUE 


VALUE IS BEYOND RANGE OF DATA - SET TO LAST TWO POINTS 
FOR EXTRAPOLATION 

J1=NPTS-1 

!■ J2=NPTS ; -'-V" ; 

GO TO 600 

550 CONTINUE 

DATA VALUE LIES BEFORE BEGINNING OF INPUT DATA 
POINTS - SET TO FIRST TWO POINTS FOR EXTRAPOLATION 

J 1 = 1 
J?=2 

600 CONTINUE 
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C WE MUST INSURE THAT WVTH VALUES ARE NOT THE SAME. (SOME ARE) 

C 

625 CONTINUE 

IF(WVTH( J2).NE. WVTH(JD) GO TO 635 
J 2 = J 2 + 1 
GO TO 6? 5 
635 CONTINUE 
C 

I F ( J2.GT.NPTS) J2=NPT S 
C 

WVDF1=WVTH( J2)-WVTH( J1 ) 

WVDF 2 = WAV- WVTH ( J 1 ) 

AIRDF=AIRTH( J2 ) - A I R T H ( J1 ) 

A I R S K Y ( L D ) = A I R TH ( j 1 ) + ( A I RDF /WVDF 1 )*WVDF2 
WRITE! 6 .7000) LD , WA V ♦ J 1 , J2 . WVDF 1 ♦ WVDF2 . A I RDF , 

1 A I RSKY ( LD ) 

C 

GO TO BOO 
650 CONTINUE 
J1 = J2 

700 CONTINUE 

AIRSKYf LD ) = A I R T H ( J1 ) 

800 CONTINUE 
C 

C ' INPUT VALUES ARE LISTED FOR CHECKING PURPOSES 
C 

WR I T E ( 9 » 1750 ) 

WRITE (9,4000 ) ( L X . WVTH ( L X ) , A I RTH ( LX ) . LX = 1 , NPT S ) , 

C ■ : ■! ■ ' 

C WE NEXT PRINT OUT RESULTS BOTH ON 

C CARDS .(FOR FUTURE USE). AND ON UN I T • 9 • , ( SYSOUT A), 

C FOR SCIENTISTS TO STUDY. 

C 

C THIS LOOP WAS INSERTED TO CREATE SEVERAL DECKS 

C AT ONCE WITHOUT WAITING FOR IBM 20 TURN-AROUND. 

DO 900 L DECK -1.4 . 

WR I T E ( 7,1500 ) 

WRITE( 7,2000 ) WAVSKY 
WRITE( 7,2500) 

WRITE( 7,3000) AIRSKY 
C 

C END OF DECK LOOP 

900 CONTINUE 

WR I TE ( 9 , 3 500 ) 
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WRITE (9, 4000) ( LD , W AVSKY ( LD ) » A IRSKY M D ) » LD=ltNf)PTS) 

WRITE (A, 4500) 

RETURN 
END 

// EXFC L I NKGD, REGION. G0=200K 
//L INK. OBJECT DO * 

INCLUDE LOAD!. I B ( ZBMJMCRB ) 

//* UNIT 6 IS THE DEBUG AND GENERAL 
'//* UNIT 7 IS THE CARD OUTPUT UNIT 

//* UNIT 9 CONTAINS THE LISTING OF 

//* OUTPUT VALUES j 

//GO. FT06F001 DD S YSOUT= A , DC B= ( RECFM= VB A , LREC L = 1 37 , BL KS I Z E =7265 ) , 
// SPACF=(CYL, ( 7,3 ) ) 

//GO. FT07F00I DD S YSOUT=B , DCB= < RECFM=FB , BL KS I Z E=7280 , LRECL =80 ) 
//GO.FT09F001 DD SYS OUT=A , DCB= ( RECFM=VBA» LR ECL = 1 37 * BLKS IZE = 7265)» 
(15,5)) 

DD S YSOUT = A , ■ r~" 


MESSAGE UNIT ON PRINTER 


THE CALCULATED 


// SPACE- ( C YL 
//GO • SYSUDUMP 
//G0.DATA5 DD 


5 ! c 


. f,00 

.405 

;4io 

.6 

1 15 

• 425 

.430 

J 43 5 

.440 

.450 

. 460 

|470 

,6 

>80 

.500 

.510 

J 520 

.530 

.5 5 0 

.560 

;570 

P 

u 

>80 

.600 

.610 

.620 

.630 

.650 

.660 

• 670 

.680 

• too 

.710 

• 720 

.730 

.750 

.760 

• 770 

.7 

r 8() 

.800 

.810 

.8 20 

.830 

• 850 

.860 

.870 

• f 

180 

.900 

.915 

.930 

.9 

45 

.975 

.990 

1.10 

li 

12 

1.16 

1.18 

1.20 

I. 

22 

1 .26 

1 .28 

1 .30 

1. 

32 

1.136 

1.38 

1.40 

lJ 

44 

1 .150 

1.52 

1.54 

1. 

56 

1 .'60 

1.62 

1. 64 

1. 

66 

1 »|70 

1.72 

1 . 74 

1. 

76 

1.80 

1.84 

1.88 

1. 

92 

2 .00 

2.04 

2.08 

2 . 

12 

2.':20 

2.24 

2 • 2 8 

2. 

132 


.^20 | 

.414 5 . ;f 

. 4i90 ] 

.540 v " 

.590 fV 

• 6;40 y 

. 69 0 

.740 

.790 : ii 

• 8 ft 0 | . 

.890 :? 

.960 il 

1.14 ■il:- 

1.24 t. 

1.34 /. ^ 

1.48 !■:; ■ 

1.58 

1.68 

1.78 

1.96 

2.16 

2.36 


• 6 S 0 

fftO n 
4 63 0 
i 700 
~ J 7 HQ 

f son 

• 850 

• 940 
1 * 0 4 
1.14 

1 • 24 
1.34 

1 .48 

1.58 
1 .68 
1.78 
1.96 
2.16 
2.36 


* 660 

• 6 } o 

* 6 6 0 



.810 


•860 
.960 
1 • 06 
1 * 1 6 
U ?6 
1 » 36 
U50 
1 .60 
1 1 70 
1180 
2 loo 
2.20 
2.40 


I 

f 

j 


i 

I 

i : 


• 570 

.<$20 
*670 
.??0 
. 770 
.82 0 
• 8(8 0 
« 5 «o 
1 *,08 
1 »j 1 8 
1 .28 
1 * j 3 8 
1.52 
1 *62 
1 .72 
1 *84 
2.04 
2.2 4 
2.44 


.580 

• 630 

• 680 
.730 
• 780 
•830 
•900 
1.00 
1.10 
1.20 
1.3 0 

1 .40 - 
1.54 
1 .64 
1.74 
1.88 
2.08 
2.28 
2.48 


•| 590 
*640 
*690 

•740 

• 790 
.840 
•920 
1.02 
1.12 
1.22 
1.32 
1 .» 4 4 
1.56 
1*66 
1 • 76 
1.92 
2.12 
2.32 
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//7BMJM001 JOB (SIC) 1 2.2 6040 » I , L 00360 * 002002 ) » B IB 
//* THISOATE 

// FXFC FORTR ANH, PARM= ' OPT = 2 , XREF » ID, MAP, EBCDI C • , R EG 1 0N=300K 
//* NOTF - DEFAULT REGION ON 75 AND 91 AFTER 6/12/74 IS ONLY 250K FOR 
//* FORTRANH AMD 150K FOR FORTRANG. MOST OF SKY LAB PROGRAMS USING 
//* JCLFORT NEED 300K. 

// SOURCE. SYS IN DD * 

THIS PROGRAM WAS WRITTEN BY M, MACK OF C.S.C. 

.FOR TASK 092, SKYLAB, UNDER CONTRACT NAS-5-119.99 
IN APRIL, 1974, IT USES A GAUSSIAN FILTER TO 
•AVERAGE' SOLAR IRRAD1ANCE VALUES, SUPPLIED 
ORIGINALLY BY DR. THEKAKARA THRU DR. CURRAN 
( GSFC ) , AND CONVERTED TO COMPATIBLE UNITS 
UNDER THE SAME TASK 092 BY PROGRAM 'CON'. THESE 
•AVERAGES' ARE DERIVED CORRESPONDING TO EACH OF THE AVERAGES 
OF THE WAVELENGTH LIMITS FOR ALL 20 ACTIVE SKYLAB $-1.92 
CHANNELS. 

COMMON /DATATH7 WVTH ( 3297 ) « A I R TH ( 3297 ) 

DIMENSION WAVSKYI 20),AIRSKY( 20),SIGMAF( 20) 

LOGICAL VARIABLE USED IN CODING 

LOGICAL D01 

DATA NOPTS.NPTS / 20,3297 / 

NOPTS IS THE NUMBER OF WAVELENGTHS ALTOGETHER 
IN WAVSKY 

NPTS IS THE NUMBER OF WAVELENGTHS COVERED IN 
DR. THEKAKARA'S DATA 


DATA SIGMAF / 0. 02 , . 02 , . 025 , . 025 , . 02 5 , . 02 5 , . 04, . 04, 

1 .05, .0 5,.l r .1, . 125, .125, . 05 , . 025 , . 02 5, . 0 5 , 1 . 15 , . 025 / 

SIGMAF IS THE FACTOR BY WHICH EACH WAVELENGTH 
IS MULTIPLIED TO DETERMINE THE 'SIGMA' 

VALUE FOR THE FILTER USED FOR THAT 
WAVELENGTH 

IT IS ACTUALLY EQUAL TO THE FILTER HALFWIDTH AT 
HALF MAXIMUM, ( t .E. TRANSMISSION IS ROUGHLY 
EQUAL TO A*EXP< -X/S1GMA ) WHERE A IS AN 
ARBITRARY CONSTANT - SIGMAF WOULD BE THE 
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C VALIJF WHICH WOULD YIELD HALF THE 

C MAXIMUM TRANSMISSION VALUE) 

C (WHOLE WIDTHS* ACCORDING TO DR. CURRAN, ARE THE 

C DIFFERENCES IN THE LIMITS FOR EACH CHANNEL USED - 

C HERE, .04, .04, .05, .05, .05 ,.05, .08, .08, . 1, . 1, .2, .2, 

C .25, .25, I. , .05, .05, . 1,2.3, .05 MICRONS) 

C 

C 

C . FORMAT STATEMENTS 

i ■ ■ ■ : 

1000 FORMAT (5F10. 0 ) 

1500 FORMAT ( ‘THE FOLLOWING ARE THE ORDERED WAVELENGTHS', 

1' FOR SKYLAB ' / , 'DATA - USED IN CONJUNCTION WITH', 

?• CALCULATED-ASSOCIATED' /, 'THEKAKARA DATA - S-192') 

1750 FORMAT (IHl, 'INPUT VALUES'/) 

2000 FORMAT! 5X, 'X' ,F7.3, ' , • , F7. 3 , • , • , F7 . 3 , ' , ' , F7. 3 , 

1 • , • , F7 . 3 , ' ♦ ' ) 

2500 FORMAT ( ' END OF WAVELENGTH DATA - BEGINNING OF', 

1' CALCULATED-ASSOCIATED THEKAKARA'/, 

2 'DATA - S 1 92 COMPARISON' ) 

3000 FORMAT ( 5X ♦ ' X » , F7 . 5 , ' , • , F7 . 5 , • , ' , FT . 5 , ' , • , F7 . 5 , 

1 • , • ,F7. 5, ',;•') 

3500 FORMAT ( 1H1 , 'DATA CALCULATED AND OUTPUT TO UNIT', 

1 • 7'/, IX, 3(7X, •WAVELENGTH' ,4X,' IRRADIANCE VALUE', 

2 5.X )// ) 

4000 FORMAT ( 1 H , 14, ' . * , 2 X , F 1 0 . 6 , 8X , F 9 . 7 , 8 X , 1 4 , ' . • , 2 X , 

IF 1 0 . 6 , 8 X , F 9 . 7 , 8 X , 1 4 , ' .' , 2 X » F 1 0 . 6 , 8 X , F 9 • 7 ) 

4500 FORMAT ( 1H0 , ' END OF PROGRAM - VALUES CALCULATED AND' 

1* PRINTED' ) 

6000 FORMAT ( 1H , I 5 , 4E 1 6 . 8 , 3 I 5 / , 3 X , 5E 1 6 . 8 ) 

7000 FORMAT ( 1H , I 5 , F 10 . 5 , 2 1 6 ,4E 16 . 8 ) 

C 

C AS THE FOLLOWING VALUE IS USED FREQUENTLY, BUT IS 

C A CONSTANT, AND AS WE WISH THE LIMIT OF MACHINE 

C ACCURACY, (AS WELL AS CONSISTENCY IN MACHINE 

C CALCULATION), WE CALCULATE IT HERE. 

C i 

ALN2=AL0G ( 2 • ) 

C 

C WE NOW READ IN THE ARRAY OF DESIRED SKYLAB S-191 

C COMPARAB.L E WAVELENGTHS 

C 

RE AD ( 5 , 1 000 ) WAVSKY 
C 

C THIS LOOP WILL CALCULATE THE 'AVERAGE' DESIRED FOR THE 
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WAVELENGTHS CORRESPONDING TO THE AVERAGES OF THE 
WAVELENGTH LIMITS FOR THE ’ACTIVE CHANNELS. OUTER 
LOOP WILL DETERMINE LIMITS OF INNER LOOP 

DO 400 LB-1 » NOPTS 
W A V = W A V S K V ( L B ) 

S I G = S I GM A F ( LB ) * WA V 

HERE. THE 'SPREAD' AMONG THEKAKAR A • S DATA FOR 
NUMERICAL INTERPOLATION 1 S DETERMINED. ( I .E. .HERE 
THE LI.MITS OF THE INNER LOOP) 

W 1 =WA V-S I G 
W 2 = W A V + S I G 
DO 1 = . TRUE • 

DO 150 L7 -- 1 ♦ N P T S 
IF ( .NOT . DOl ) GO TO 100 
IFIWl.LT. WVTH ( 1 ) ) GO TO 95 
I F ( wl .GT . WVTHI LZ ) ) GO TO 150 

1 1 = LZ- 1 
D01 = . FALSE. 

IF(U.LT.l) 11=1 
GO TO 100 

95 CONTINUE 
11 = 1 

D01=. FALSE. 

100 CONTINUE 

I F ( W2.GT • WVTH ( L Z ) ) GO TO 150 

12 = 1.7 + 1 
GO TO 200 

150 CONTINUE 

200 CONTINUE 

IF ( I 2.GT. MPTS ) I 2 = N P T S i 

MOW THE 'AVERAGE • MAY BE CALCULATED ( NUMERICAL 
INTERPOLATION PERFORMED) 

SIGPRD =ALN2/(SIG*SI'6) 

SUM 1=0. 

SUM 2 = 0 • 

DO 300 LTRs.Il.I2 * 



FIRST CALSULATE WAVELENGTH DIFFERENCE 


on o o o o o o n o non o on ono nnon 


c 

WD-WVTH! LTR )-WAV 

MOW CALCUL ATE - ( ( NIJ-NUO ) / S I GM A) **2 * LN2 

WD2P=-WD*WD*SIGPRD 

TAKE EXPONENTIAL OF ABOVE 

W E X P = E X P ( W D 2 P ) 

SUM 1 = S IJM 1 + W E X P 

TAKE PRODUCT OF EXPONENTIAL VALUE AND IRRADIANCE 
ARWEXP-A I RTH ( LTR ) *WEXP 
SUM2=SUM2+ARWEXP 

WRITE (6 ♦ 6000 ) LB » WAV , W 1 , W 2 , SIG » LTR , 1 1,1 2 , 

1WD, WD2P » SUM 1 , AR W E X P , S IJM2 

300 CONTINUE 

A I RSK Y ( LB ) = SUM 2 /SUM 1 
400 CONTINUE 


INPUT VALUES ARE LISTED FOR CHECKING PURPOSES 
WRITE (9, 1750) 

WRITE! 9,4000) ( LX, WVTH! LX > , A IRTH! LX) » LX= 1 , NPTS ) 

WE NEXT PRINT OUT RESULTS BOTH ON 

CARDS » ( FOR FUTURE USE), AND ON UNIT •9 , ,<SYS0UT A), 
FOR SCIENTISTS TO STUDY. 

THIS LOOP WAS INSERTED TO CREATE SEVERAL DECKS 
AT ONCE WITHOUT WAITING FOR IBM 20 TURN-AROUND. 

DO 900 LDECK=1,4 
WR I T E ( 7 , 1500 ) 

WRITE! 7, 2000!) WA VSK Y 
WRITE (7, 2 500) 

WR I TE ( 7 , 3000 ) AIRSKY 

END OF DECK LOC 1 
900 CONTINUE 

WR I T E ( 9 , 3 500 ) «> 

WRITE (9, 4000) (LD.WAVSKY! LD) ,A1RSKY( LD ) , LD= 1 , NOPT S ) 
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WR I TE ( 6 . 4500 ) 

'return 

END 

// FXFC LINKGO. REGION. G0=200K 
//LINK. OBJECT DO * 

INCLUDE LflADLIRt ZBMJMCRB ) 

//*. UNIT 6 IS THE DEBUG AND GENERAL MESSAGE UNIT ON PRINTER 
//* UNIT 7 IS THE CARD OUTPUT UNIT 

//* UNIT 9 CONTAINS THE LISTING OF THE CALCULATED 

//* OUTPUT VALUES 

/ /GO .FT 06F00 1 DD SYSOUT=A. DCR= ( RECFM= VB A , LRECL = 1 37 , BLKS 1 1 E = 7265 ) ♦ 
// SP AC F = l C YL . ( 7 1 3 ) ) 

/ /GO . F T07F00 1 DD SYSOUT = R. DCB=( RECFM=FB . BLKS I Z E=7280 . LRECL = 80 ) 

/ /GO . FT09F00 1 DD SYS01JT = A .DCB = ( RECFM=VBA , LR ECL= 137 , BLKS I ZE=7265 ) » 
// SPACF=(CYL. (15.5) ) 

/ /GO . S YSUDUMP DD SYSOUT-A 
//G0.DATA5 DD * 


. 5|4 

.54 

.585 

.585 

.645 

• 64 5 

.72 

.72 

.83 

.83 

1.65 

1.65 

2.225 

2.225 

12.5 

.485 

1.00 5 

1.14 

11.35 

.435 


// FXFC NOTIFY. MODE=ALL .MSG=‘ JOB IS COMPLETE* 

// EXEC LINKGO, REGION. GO=200K 
//LINK.SYSLIN DD * 

INCLUDE LOADLI B( ZBMJML91 ) 

//* UNIT 6 IS THE DEBUG AND GENERAL MESSAGE UNIT ON PRINTER 
//=:= UNIT 9 CONTAINS THE LISTING OF THE TAPE CONTENTS 

//* TPS191 IS THE INPUT DATA TAPE 

//GO. FT06F001 DD SYSOUT= A . DCB= ( RECFM= VB A , LREC L= 1 37 , BLKS I ZE=7265 ) , 
// SPACE=(CYL.(7,3) ) 

/ /GO. FT09F001 D D S Y SOU T = A.DCB =( R ECF M- V BA .LRECL = 1 37. RLKSI Z E =72 6 5 ) . 
7/ SPACE=(CYL, ( 15.5) ) 

//GO. TPS191 DD UNIT=2400-9.DCB=(RECFM=U»BLKSIZE = 2520).LABEL=( » BLP ) 
7/ V0L=SER=L0019 
//GO . S YSUDUMP DO SYSOUT-A 
7 /GO. DAT A 5 DD * 

// EXEC LINKGO. REGION. G0=300K 
//LINK.SYSLIN DD « 

INCLUDE LOADL I B ( ZBMJMT91 ) 

//* : UNIT 6 IS THE DEBUG AND GENERAL MESSAGE UNIT ON PRINTER 

//* : UNIT 9 CONTAINS THE LISTING OF THE NEW TAPE'S CONTENTS 

//* (IT IS DEFINED AS A PRINTER UNIT ALSO) 

//* UNIT 12 IS THE OUTPUT UNIT FOR THE NEW TAPE 

//* TP191A IS THE INPUT DATA TAPE OF FORM* A' 

//* TP 19 1 B IS THE INPUT DATA TAPE OF FORM ' B ' 


/ / GO • FT06 FOO 1 DD S YSOU T = A , DC B = ( RECFM= VB A , LR ECL = 1 37 ♦ BLK S 1 Z E = 7265 ) , 
// SPACF = ( CYL » ( 10 * b ) ) 

//GO.FTn9FD01 DD S YSOUT = A , DCB = ( R ECFM=VB A , LK EC L = 1 37 , BLKS I Z E = 7265 ) t 
// SPACF=( CYL, < 20,5) ) 

//GO .FT 12 F0Q1 DO UN I T = ( 2400-9 ,. DEFER ) , DCB= ( RECFM = VBS, 

// LRECL = 1 796 » BLKS IZlp = 30536 , DEN = 3 ) ♦ LABEL= ( ,BLP ) , 

// VOL=SER= DUMMY 

/ /GO • TP 191 A DD UN I T = 2400-9 , DCB = ( RECFM = U » BL KS I ZE = 2 520 t EROPT = ACC ) » 

// LABEL- ( ,BLP) , VOL=$ER=L 0001 

//GO. TP 191 B DD UNI T=2400-9,DCB=< RECFM = U,BLKSI ZE = 2 520,ER0PT = ACC ) , 

// , LABFL=( tBLP) , VOL =SER=L 0002 
//GO. SYSUDUMP DD SYSOUT=A 
//GO. DAT A 5 DD * ... 

// EXEC LINKGO, REGION. G0=200K 

//* UNIT 6 IS THE DEBUG AND GENERAL MESSAGE- UNIT ON PRINTER 
’//* UNIT 9 CONTAINS THE LISTING OF THE TAPE CONTENTS 

//* TPS191 IS THE INPUT DATA TAPE' 

//G0.FT06F001 DD SYSOUT=A. DCB= ( RECFK= VB A . LRECL= 1 37 , BLKS I ZE =7265 ) , 
// S P AC E = ( C Y L » ( 7 » 3 ) ) 

/ /GO .FT 09F 00 1 DD SYSOUT=A, DCB= ( RECFM=VBA , LRECL= 1 37 » BLKS I ZE =7265 ) , 
// SPAC F= ( C YL « ( 1 5 » 5 ) ) 

/ /GO . TP SI 91 DD UNI T = 2400-9. DCB=( RECFM=U. BLKSI ZE=2520 ) » LABEL= ( » BLP ) 

// V0L = SER = L0001 

//GO. SYSUDUMP DD SYSOUT=A 


//GO .DATA 5 DD * 

// EXEC LINKGO, REGION. G0=200K 

//* UNIT 6 IS THE DEBUG AND GENERAL MESSAGE UNIT ON PRINTER 
//* "1 UNIT 9 CONTAINS THE LISTING OF THE NEW TAPE'S CONTENTS 

//* (IT IS DEFINED AS A PRINTER UNIT ALSO) 

//* UNIT 12 IS THE OUTPUT UNIT FOR THE NEW TAPE 

//* TP 1 9 1 A IS THE INPUT DATA TAPE OF FORM ' A 1 

//* TP191B IS THE INPUT DATA TAPE OF FORM 1 B 1 

//GO .FT06F001 DD S YSOUT = A » DC.B = ( KECFM = VB A ♦ LR ECL = 1 37 , BLKS I Z E = 7265 > , 
// SPACE=( CYL, ( 7.3) ) 

//GO . FT09F00 1 DD S YS OUT= A ♦ DC B= ( RFC FM = VB A , LR EC L= 1 37 , BLKS I ZE= 7265 ) , 
// S P A C F = ( CYL, ( 15,5) ) 

/ /GO . FT 1 2 FOO 1 DD UN I T = ( 2400-9 ,, DEFER ) ,DCB=(RECFM = VBS, 

// LRE CL = 1 452 , BLKSIZE=29044»DEN=3 ) . L ABE L= ( , B L P ) , 

// VOL=SER=DUMMY 

//GO. TP191 A DD UNIT=2400-9,DCB=(RECFM=U,BLKSIZE=2520),LABEL=( »BLP) 
// V0L=SER=L0021 

//GO . TP 1 91 B DD UNI T =2400-9 , DCB= ( RECFM = U » BLKS I ZE = 2 520 ) , LABEL= ( , BLP ) 
// VOL=SER=L0022 
//GO. SYSUDUMP DD SYSOUT=A 
/ /GO . DAT A 5 DD 4 


// EXEC L I NKGO » REG l ON • G0 = 22OK 
//LINK. OBJECT 00 * 

INCLUDE I.OADL I B ( 7BMJMR9? ) 

//* LOAOL IB 7BMJMR92 CONTAINS READ PROGRAMS FOR S-192 
//* OMIT 6 IS THE DEBUG AND GENERAL MESSAGE UNIT ON PRINTER 
//* UNIT 9 CONTAINS THE LISTING OF THE TAPE CONTENTS 

//* TP192 IS THE INPUT DATA TAPE 

/ /GO . FT06E00 1 DD S VS OUT = A , DCB= ( RECFM= VB A , LR ECL = I 37 , BLKS 1 Z E = 7265 ) * 

// SP ACE= t C YL ♦ (7,3) ) 

/ /GO » FT09FD0 1 DD SYSOUT=A,DCB=(RECFM=VBA, LRECL=137 , BLKS 1 ZE=7265 ) , 

// SPACF=( CYL, (15,5)) 

//GO. TP 192 DD UN IT = 2400-9, DC B=(RECFM = U, BLKS IZE= 32000) , LABEL-! VBLP) , 
// VOL=SFR=L0045 
//GO.SYSUDUMP DD SYSOUT=A 
//GD.DATA5 DD * 





V 

I 
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APPENDIX F - TEMPERATURE HUMIDITY PROFILE PROGRAM 1 

PROGRAM LISTINGS. INPUT. AND JCL OUTPUT ! 





III . K H J Mom .inn ( si 0 1 ? ? 6 04 n . T , L 0 03ft 0 , 00 ? 00 ? ) ♦ HI 6 
//* THISDATE 

/ / (- X FC FOR TR'ANH , FAR M = ' HP T = ? , X R H F , I D , M A P , E R C 0 I C '• * R I: G 1 ON = 3 OOK 
//* H 0 T F - DF FAULT REGION ON 75 AMO 91 AFTER fc/12/74 IS ONLY 250K FOR 
//* FOR THANH AMO 150K FOR FORTH AMO. MOST OF SKYLAB PROGRAMS USING 
//=.- .1 Cl. FORT M F F 0 300K. 

/ / SOI IRC F ♦ SYS T N DO * 

C 

C THIS PROGRAM : WAS WRITTEN RY M.MACK OF CSC FOR TASK 092 , 

C SKYLAR, UNDER CONTRACT NAS 5-11999 IN MARCH, 1974. 

C IT IS THE TEMPERATURE -HUM 1 01 TY PROFILE PROGRAM. 

C S-191 DATA, (IN ITS GSFC FORM), IS READ AND TESTS 

C ARE PERFORMED TO DETERMINE THE PRESENCE OR MON-PRESENCE 

C OF CLOUDS. THE RESULTS DETERMINE WHETHER OR NOT 

C SUBROUTINES CLOUD OR NCLOIID ARE CALLED. ... 

C 

C THE INPUT DATA ARRAY IS CALLED DATUS. IT IS EUU I V AL ENCED 

C TO THREE OTHER ARRAYS : IDATUS, WAVEL AND RADVAL. IDATOS IS 

C AN INTEGER*? ARRAY 6 HALF-WORDS LONG, WHICH WILL CONTAIN 

C THE TIME OF THE SPECTRUM. WAVEL IS THE ARRAY OF WAVELENGTH 

C VALUES FOR S-191 AND RADVAL IS THE ARRAY OF ASSOCIATED 

C RADIANCE VALUES. 

C DATUS IS ALSO EOU 1 V ALENCED TO SINGLE VAR I ARLES : ZEN I TH TO 

C THE 1 OTH ENTRY. 

C 
G 

C TAPEN CONTAINS THE NAME OF THE TAPE TO BE MOUNTED ,( VOLUME 

C AND SERIAL NUMBER) 

C 

C CONE AND CT WO ARE THE CONSTANTS USED IN PLANCK • S EQUATION • 

C TO DETERMINE THE EQUIVALENT BRIGHTNESS TEMPERATURE. 

;C v PI IS THE MATHEMATICAL CONSTANT OF THE SAME NAME. 

C CNDGRD IS A CONVERSION FACTOR USED TO CHANGE ANGLES IN "-.-l'.,'; 

C DEGREES TO ANGLES IN RADIANS. 

C REFLLM1S THE DESIRED LIMIT ON REFLECTANCE BELOW WHICH, ( FOR 

C .74 MICRONS) THERE IS PRORARLY NO CLOUD. 

C TEMPLM IS THE DESIRED LIMIT ON TEMPERATURE BELOW WHICH, (FOR 

C THE TEMPERATURE ASSOCIATED WITH 11.1 MICRONS) THERE IS PROBABLY 

C A CLOUD. 

C THEKVI. IS THEKAKAR A • S IRRADIANCE VALUE AT .74 MICRONS USED IN 

C C A LCD L ATI MG REFLECTANCE. 

C WV14R WILL BE THE WAVELENGTH VALUE OF 11.1 MICRONS. 

C WV1485 WILL BE THE FIFTH POWER. OF 11.1 MICRONS, (THIS 

C AND WVI4R ARE USED IN CALCULATING BRIGHTNESS TEMPERATURE) 

C 




cuiuni AND CL nun? ark logical variaki.es corresponding to 

THE RESULTS OF THE TWO TESTS. IF A CLOUD IS SUSPECTED, THE 
VARIABLE IS SET TO TRUE, IF NOT, IT IS- SET TO FALSE. 


RFAD1 IS A LOGICAL VARIABLE WHICH SHOWS IF THIS IS THE 
FIRST TAPE REQUESTED. IF IT IS NOT, THE OLD ONE MUST BE 
UNLOADED 

THE FOLLOWING ARE USED FOR STATISTICS PURPOSES: 

MSP EC WILL BE THE NUMBER OF SPECTRA READ 

MCl.D WILL BE THE NUMBER CONSIDERED TO HAVE CLOUDS IN THE FIELD 
OF VIEW. 

MMCI.D WILL BE THE NUMBER CONSIDERED TO HAVE NO CLOUDS IN THE 
FIELD OF VIEW. 

MDUB WILL BE THE NUMBER WHICH WERE INCONCLUSIVELY 
CLOUD SPECTRA, ( I .E. TESTS WERE NOT CONSISTENT SO THEY WERE 
ARBITRARILY CALLED CLOUD SPECTRA). 

NTAPE WILL CONTAIN THE NUMBER OF TAPES REQUESTED AND UTILIZED 

NERR WILL BE 'THE NUMBER OF READ ERRORS ENCOUNTERED IN ACCESSING 
THE TAPES. 


NAMELIST, INPUT, WILL CONTAIN THE VARIABLES USED TO 
INITIALIZE THE WOLF PLOT PACKAGE 


AT USER OPTION, TIME PERIODS OF A TAPE OR TAPES MAY BE 
SCANNED, (RATHER THAN MERELY THE ENTIRE TAPE OR TAPES). 

DIMENSION PATUS ( 448 ) , W AVE L ( 2 17 ) , R AD VA L ( 2 1 7 ) 

INTEGER*?. I DATUS ( 896 ) 

DIMENSION IDEV( 3) , IVALE( 5) 

REAL*B NL ST /• . 6INPUT */ 

R E A L * B PLOTER , PLOTS ( 5 ) 

RFAL*8 TAPEN.WVI4B5 . - : " r V ' ■■ /VT. .. 

LOGICAL CLOUD1 / . TRUE . / 

LOGICAL CLOUD?/. FALSE. / 

LOGICAL FIRST M /.FALSE. / 

LOGICAL REA Dl/. TRUE./ 

EQUIVALENCE ( DATUS ( 1) , IDATUS( 1)1, ( DATUS ( 15),WAVEL( 1) ) , 

1 (DATUS ( 10 ) .ZENITH) , ( DATUS ( 23? ) ,RADVAL ( 1 ) ) 1 

NAMELIST /INPUT/ PL OTER , I PR I NT , MONTH , IDAY, IYEAR., IHOUR, 

1 MI MUTE, I SEC. I ENDHR , I ENDM ( . I END SC 
DATA PLOTS / 'CAI.COHP • , • SC4020FH ' , • SC40208H' , 'SC4020CF' , 
1 'PRINTER •/ ; 



DAT A IVAI.fi / 2 000 ,0030, 00? 0 , 00 1 0 , 000 1 / 

DATA I PRINT /()/ 

DATA MONTH /O/ ' 

DATA MUMM / A / 

DATA NT I MOL /07 

DATA COME / 3 . 7 A 1 3 fi + 04 / 

DATA CTWf) / 1 . 438 Hfi+ 04/ 

DATA PI / 3 « 1 A 15 / 

DATA CNDGRD /. 01 745 3 / 

DATA RPFLLM / .70 / . 

DATA TENPLM / 273. / 

DATA THEKVL' /. 12A02 
DATA VI VI 65 / 11.1 / 

DATA W VI ft 55 / 1.6850581550 + 05/ 

DATA NS PEC ,NCLD, M N C L D , N 0 U 8 » M T A P E t N E K R / 0 » 0 1 0 , 0 » 0 ♦ 0 / 

DATA NO I » N02 , N03 , N04 , NQ5 , NDGO /207 » 9000,5 10 ♦ 1 / 

C ;■ : 

C FORMAT STATEMENTS i 

C , : '■ / : : 

1000 FORMAT ( AH ) ' 

2000 FORMAT! 1H0, 'DUBIOUS CASE MO. • , I 5/ , ftX , * T I ME WAS', IX, 313, 
11X.3J3.2X. 'SUM 7.ENTTH ANGLE WAS ' , IX , F7 , 3/ , 12X, 

2 'RADIANCE VALUE FOR .7A MICRONS WAS ' , E15.8, IX. 

3' Y1 ELDING A REFLECTANCE VALUE OF • ,FH.A, IX. 

A 'COMPARED TO A LIMIT OF ' .Fft.3/, 12X, 

5 'RADIANCE VALUE FOR 11.1 MICRONS WAS ' .E15.8. IX, 
ft' YI FLDJMG A TEMPERATURE VALUE OF '.F8.3/.1AX, 

7 » COMPARED TO A L I MIT OF ' , F8 . 3/ / ) 

2100 FORMAT! 1H0. • ERROR' ,15 . • IN READING OF TAPE '.AB/J 
2200 FORMAT! 1H0, 'END OF REQUESTED TIME PERIOD: • , 3 1 3 , 1 X , 3 I 3 , 

1 • TO ' ,313, IX, 3I3/.1X.5X, 'THERE WERE • , 15, IX, 

2 'SPECTRA READ WITH ' , I 5 ♦ 1 X , 'SPECTRA TESTED. '/, IX, 

3 AX, 'OF THESE. ' ,15, IX, 'WERE CONSIDERED CLOUD SPECTRA,', 

A 'WHILE ' .15, IX, 'WERE CONSIDERED NO-CLOUD SPECTRA -*/,8X, 

5 • (THE CLOUD SPECTRA NUMBER 1 NCLUDES ' , IX , I 5, IX, 'WHICH ', 

6 'WERE INCONCLUSIVELY CLOUD SPECTRA.)'//) 

2300 FORMAT! 1H0,' END OF FILE ENCOUNTERED ON TAPE', IX, A8, 

1?X, 'DETERMINE IF ANOTHER TAPE IS DESIRED'/) 

2400 FORMAT! 1H0, 'NO ADDITIONAL TAPES WERE REQUESTED - THERE ', 

2 'WERE A TOTAL OF ' , 1 5, IX, 'TAPES MOUNTED FOR THIS JOB'/, 

3 1 OX * ' THERE WERE ', I 10, IX, I SPECTRA TESTED. OF THESE ', 

A I 5 » 1 X » • WERE CONSIDERED CLOUD SPECTRA, WHILE ', IX, 15, IX, 

5 'WERE CONSIDERED'/, 19X, 'NO-CLOUD -SPECTRA - (THE CLOUD • , 
ft • SPECTRA NUMBER T NCLIJDES ' . I 5, IX , ' WHICH WERE INCONCLUSIVELY 
7 'CLOUD SPECTRA.)'//) 


o o o o n r> a o o o n r> o o n o n rs 





OF BUG AID 

C A L L E R H SET ( NO 1 ♦ NO? , N 0 3 , M G 4 , N OGO, N 0 5 ) 

I C A S E = 0 
WRITE (A, 30 10) 

3010 FORMAT ( I HI ♦ 'DEBUG DATA'/) 


3,£ 5 P C i|i jjs 3|l 

READ ( 5 » INPUT ) 

REWIND 5 
DO 5 L = 1 * 5 

N DM 1 = L T 

IFIPLDTER. ED. PLOTS! L ) ) GO TO A 
5 CONTINUE 
A CONTINUE 

N! IM= I V A I. E ( NUM 1 ) 

MUM -MUM+ l PR I NT 
CALL NOSTAE 
CALL C PRIME! 2) 

CALL P LOTST ( NUM » NUMM ) 

10 CONTINUE 

NEXT DESIRED TAPE, (VOLUME AMD SERIAL NO.) IS READ 

READ ( 5 1 1000 t END = 999 ) TAPEN 
IF ( TAPEN. EO.NLST ) GO TO 999 
■■ : L NTAPE = NTAPE + 1 

I F ( READ 1 ) GO TO 20 

IF THERE IS A TAPE ON THE DRIVE ALREADY, ( I.E. THIS IS 
MOT THE FIRST TAPE REQUESTED), UNLOAD THE OLD ONE. 

CALL UNLO D( 1? ) 

20 CONTINUE 

RF AD I = . F ALV E • 

MOUNT THE NEW TAPE 


C A L I. MO U N T ( 1 '2, TAPE N ) 

30 CONTINUE 


asEsafl* 1 


o o o o noon 


r. 

c 






. MFXT OAT A SET I S READ 
C A I. L F R F A n ( n A TUS , 1 ? . L ENG T H , f. 9 9 » f, 7 0 ) 

nspfc=nspec+i 

IF ( Month , EO. 0 1 GO TO 35 
I F ( FIRST K ) fin TO 36 
IF(inATUS(3).LT.IYHAR) fin TO 10 

I F ( I DAT US ( 1 ) .LT. MONTH) fill TO 10 1 

I F ( ( I OATIJS ( 1 ) . FO . MONTH ) . AMO . ( IDATOS ( 2 ) . L T . I DA Y \ ) GO TO 10 

IF < ( I OATUS ( 1 ) . ED. MONTH) .AND. ( 1 DA TUS I 2 ).E0. I DAY) .AMD. 

1 ( IOATUS (4) .LT. THOUR) ) fill TO 10 j 

IF ( ( IDATOS ( T> . ED, MONTH) . AND. ( I OATHS ( 2 ) . EO. I DAY ) .AND. 

1 (I DA TIJS ( 4 ) * ED. 1 HOUR ) . AND. (I DA TUS ( 5 ) . LT . M I NOTE I > GO 

2 TO 10 

IF ( ( IDATOS ( 1 ) , EO. MONTH ) .AND. I IDATUSt ? ) . EO. I DAY ) . AND. 

1 ( I DA TUS ( 4 ) .E(). I HOUR) .AND. { IDATUSt 5) .EO. HI MUTE ) . AND. 

2 ( IDATOS (6). LT. I SEC) ) fit) TO 10 
F I R STM- . TRUE • 

36 CONTINUE , : I v 

I F ( IDATUSU) .fit. I END HR ) GO TO 80 

I F C ( T DATIJS ( 4 ) . EO. I ENDHR ) . AND . ( I DA TUS ( 5 ) . GT . I ENDM I ) )G0 TO 80 
I F ( < IDATOS ( 4) . EO. I ENDHR) .AND. ( I DATIJS I ’5 ) . EO . I ENDM I ) . AND . 

1 ( I DATOS ( 6 ) » GT. I END SC ) ) GO TO 80 

NT I MOL -NT IMOL + 1 
35 CONTINUE 

TEST 1 DETERMINES IF THE REFLECTANCE AT .74 MICRONS IS LESS THAN 
• ; THE GIVEN LIMIT • T ; ; 

CL0UD1 = • TRUE . ■ 

ZFNAN=7FNI TH4CNDGRD /T . 

COSZM=COS( ZENAN) 

IF ( COSZN. LE.O. ) GO TO ^-0 ; 

REFLEC~{ RADVAL ( 40)*P I ) /( C0SZN4THEKVL ) 

IF(RFFLEC.LT.REFLLM) CLOUD 1=. FALSE. 

40 CONTINUE 

TFST 2 DETERMINES IF THE TEMPERATURE AT 11.1 MICRONS IS 
LESS THAN THE INPUT LIMIT. IF SO, A CLOUD 1$ PRESENT 

CL01JD2 = .TRUE. 

I F ( RADVAL ( 165 ) .LE .0. ) GO TO 60 
A l OGRG = 1 . + (C0NE/(P!*UV1655*RADVAL( 165) ) ) 

IF ( ALDGRG.LE.O. ) GO TO 60 


-Mr 



c 

c 

c 

c 

c 

c 

c 


n h m n M = '•> v i 6 5 * a lug ( a i h f ; r g ) 

1 F ( DENOM , |_ F . 0 . ) (4(1 TO 60 
TRMRVI.-CTWn/nF'vnM 

1 H TFMPVL.GE.TEKPLM ) CUUJf)2=. FALSE. 

60 CONTINUE 

IF ROTH TESTS SHOWED CLOUDS WERE PR E8 fc NT , < CLOUD l AND 
Cl. HUD? WERE ROTH TRUE ). THEN IT IS ASSUMED A CLOUD 
IS PRESENT. IF ROTH TESTS SHOWED NO CLOUD WAS PRESENT. 

IT IS ASSUMED NO CLOUD WAS PRESENT. IF TESTS GAVE OPPOSITE 
RESULTS. IT IS ASSUMED A CLOUD WAS PRESENT. 

I F ( ( . NOT . CLOUD 1 ) .AND, CLOUD?) NDUB = NDUR+ 1 
I F ( CLOUD 1 .AND. (.NOT. CLOUD?)) NDU B = NDUB + 1 

I F ( ( . NOT . CLOUD1 ) .AND. CLOUD? ) WR ITE ( 6 , 2000 ) MDUR, IDATUS, 

1 Z E N I T H , R A D V A L ( 4 0 ) , R E F L EC , kEFLLM, RADVAL ( 165 ) ♦ TEHPVL ♦ TEMPL M 
IF (CLOUD 1 .AND, (.NOT. CLOUD?)) WK I TE ( 6 , 2000 ) NDUB , IDATUS. 

1 Z FN I TH, RADVAL ( 40 ) , REFLEC , REFLLK, RAOVAL ( 165 ) ♦ TEMPVL ♦ TEMPLM 
IF (CLOUD 1 .OR. CLOUD? ) NCLD = NC LD+ 1 
I F( CLOUD! .OR. CLOUD?) CALL CLOUD ( DATUS . IDATUS) 

IF((, NOT. CLOUD!) .AMD. (.NOT. CLOUD?) ) NNCLD=NNCLO+ 1 
I F(( .NOT .CLOUD 1 ) .AMD. (.NOT, CLOUD 2) ) CALL NCL QUO ( DATUS , I DATUS ) 


C ❖ 5 i ! 'r 5 

c 

c 

c 


DEBUG AID 


I CASE= I CASE+1 

WRITE! 6.3000 ) I CASE , ( IDATUSt L) ,L=1,6) . 7 EN I TH » ZEN AN . COSZN , 

1 RADVAL ( 40 ) , R EFL EC , REFLLM, CLOUD 1 , R ADVA I. ( 165 ) , AL OGRG, DENOM , 
? TFMPVL » TEMPLM . CLOUD? 

3000 FORMAT ( IH0.I5, • . '.IX, ' T I ME= ' , 3 1 3 , 1 X , 3 1 3 , 2X , 'ZENITH-' ,F7.3, 

1 2X, 'OR • .FB.5.2X. ' C0$( ZEN I TH ) = ' , F8.5/.9X. 'RAD40= ' , F9.6.2X, 

2 'REFLEC - ' , F9.6.2X, 'REEL LM = ' , F9.6.3X, ' CL0UD1= • , 1.4/ , 9X, 

3 ' R AD 1 6 5= ' , F9.6.2X, ' ALOGRG-' .E16.B.2X, ' D E NOW = ' » E 1 6 . 8 , 2 X , 

4 'TEMP VI. = • .FB.3.2X, ' T E K P L M = ' .FH.3.3X, • CLOUD?= • , L4/ ) 


C * * 


I* O. 


70 


C 

C 

C 


GO TO 30 

CONTINUE 4 .': ; 7 

ERROR IN READING TAPE WAS ENCOUNTERED 


NFRR=NFRR+1 

WRITE ( 6.? 100 ) NERR , TAPEN 
GO TO 30 


F-7 




no o c^n on n o o o 


MO CflN'T T 
C 

C FMfl OF RFOULSTFD TIME PERIOD 

C 

W R T T E ( A » 2 2 0 0 ) MONTH . I DAY . I YEAR , 1 HOUR * Ml NUT F. , I SEC ♦ MONTH, 

1 I DAY, IYEAR, I EMI) HR , I FNDM I , I END'S C t NSP EC ♦ NT I MOL , NCLD , 

2 MMCl.D ,NDUB 
GO TO 9999 

90 CONTINUE 

END OF FILE ENCOUNTERED ON CURRENT TAPE - DETERMINE IF NEW 
TAPE IS DESIRED 

WRITE (A. 2300) TAPEN 
GO TO 10 
999 CONTINUE 

WO NEW TAPES WERE REQUESTED - PROGRAM CONCLUDES WITH 
STATISTICS LISTED 

CALL UNLOAD ( 1? ) 

WRITE! A. 2400) N T A P E , N S P E C , N C L D , N N C L D , N D U R 
9999 CONTI NILE 

CALL SETBLK ( 999 ) 

CALL ENDPLT 
RETURN 
FND 

SUBROUTINE CLOUD ( DATLJS , ID ATUS ) 

DIMENSION DATUSI 448 ) , 1 DATUSI 448 ) 

DUMMY SUBROUTINE CALL 
• RETURN 
END 

SUBROUTINE DTAUDU ( T ,0 ,M ,N , DH , P T , VWCOR ) 

*** GSFC PROGRAM NO. $0009*1 NIMBUS -4 TEMP. /HUMIDITY ESTIMATION PROG 

COMMON /H20/ TO! 99) ,Q0( 99) 

COMMON /H20/ T Allt 2ft* 100 ) , C 0 ( 2 8 ) , C 1 ( 2 8 ) , C 2 ( 2 8 ) , C 3 ( 2 8 ) » C 4 ( 2 8 ) » C 5 ( 2 8 ) » 
# CA ( ?8 ) , C 7 ( ?ft ) ♦ C 8 ( 2 8 ) 

DIMENSION T < 1 ) .Oil) , PP(IOO) 

LOGICAL F ST I ME/. TRUE. / 

C 

C 

IF( . MOT. FS TIME )G0 TO 110 
F ST I ME = .FALSE. 

APT = ALOG(PT) 


F-8 


100 

110 




nr i 100 -i = l . M 

H = APT + (J- 1 )*DH 
PPIJ) = EXP(H) 

pavoi.d = o. 

TAVOLD = 0. 

POLO = PT 

oni.n = o. 
on i J=? * n 
p = PPM) 

iFinu-i ) .ifo.o. ) on to ? 


II IS THE INTEGRATED MASS 

0 IN THESE equations corresponds to the w in paper ry dr. conrath 

980 IS GRAVITY IN CM/SEC**? 

u = unto + o(,i-i )'MP-pnLD)/ 98 o. 
p a v = ( u m. o * p a v n i n + .5 * ip + p n i. n )■? ( u - u o l n ) ) / u 
TAV = ( UOLO*TAV0l_D + T(J - 1 )*( U - UOLD) )/U • 
on in 3 

2 CONTINUE 
on 4 1=1 ,M 

4 TAU( I ♦ J ) = 0 . ' if 

POLO = P I® 

GO TO 1 ! 

3 CONTINUE •:! 

X = A L 0 0 ( U* 2 7 3 * / T A V ) 

Y = ALOGI PAV/1000. ) 

Z = ALOGI TAV/273. ) 

PAVOLO = PAV 
TAVOLD = TAV 
HOLD = U 

22 HERE IS THE DISPLACEMENT NEEDED TO PUT INDEX AT HUMIDITY 
MIXING RATIO VALUES ,( THERE ARE 22 TEMPERATURE CORRESPONDING 
VALUES PRECEDING THEM) 

TAU IS THE ATMOSPHERIC TRANSMITTANCE 


DO 1 K = 1 ♦ M 
I = K + 22 

IF (COI I ) . ME . 0 ) GQ TO 10 
TAU I K ♦ J ) =1. 

GO Tf) 1 




O o o o o o o o 



c 

c 

c 

c 

c 


W = cot I ) + C) ( I )*X + 021 1 )*Y + C3 I i )*/ + C-4< I )*X*Y*. 1 + C5( l )*X 
* *Z + C 4 < I ) v- ( x * X ) V . 1 + c 7 ( n * ( X * X ) * 7 * . 1 + C« < I ) # Y*'2 * Z # . 1 
I F ( ( N .LT .-10. ) .UK. ( W.GT .2 .5 ) ) (id TO 7 

WX = 0(1) + . 1*C'4( n«Y + C5(1)*X + ?.*C6(1 )*X*. I + 2 . *C7 ( i )*'X* 7 * 
1,1 

XI I = 1./IJ 

wu = wx*xu 

VWCOR IS THE SECANT OF THE NADIR VIEW ANGLE 
- IT IS USED TO MODIFY DTAUDU VALUES , ( STORED 
HERE IN TAU ) . 

T A U ( K ♦ J ) = - E X P I ~ E X r I W ) •" V W C O R ) * I E X P ( W ) * V W C 0 R ) * W U 
GO TO 5 

7 TAUIK , J ) = 0. 

•5 CONTINUE 
POLO = P 
l CONTINUE 
DO 6 1 = 1 ,M 
A TAU( 1,1) =0. 

RETURN 

END 

SUBROUTINE ESTH20I X IM . XL AM ,M ,U TOTAL , T , TB , I I , RR , C VGH2Q , V WCOR , K TYP E ) 
* GSFC PROGRAM. NO. S 00091 NIMBUS-4 TEMP. /HUMIDITY ESTIMATION PROG 
COMMON /H?0/ TOT 99 ) , GOT 99) , T AU ( 28 ., 1 00 ) 

C O M M 0 N / C O 2 / T A U C 0 2 ( 28,1 00 I 

COMMON/CHA/ R MSTMP » RMS 

DIMENSION T(T),XIMU ),XIO( 6),XIXI0( A ) , X L A M I 1 ) , X I ( 6),XICD( 4) 
DIMENSION DELS! A) ,XK( 100) , SI 6, 6) ,RH( 100) ,ES( 100) 

REAL*8 S 
LOGICAL HOT GRD 

COMMOM/XXX/ TS, PS, PT, DH, N, NL , R, 

« M TOTAL, 

U P{ 99 ) , T 1 ( 99), 

H HOTGRD 

LOGICAL ' HOTGRD 


FPWM TS THE MONONUCLEAT ION FREEZING POINT OF WATER 
DATA FPWM/234./ 


NOTE - NM IS 23 INSTEAD OF 100 OR 99 SINCE THE UPPER PORTIONS 
OF THE ATMOSPHERE CONTRIBUTE NOTHING, (OR VERY LITTLE), TO THE 
WATER VAPOR QUANTITIES - ONLY THE LOWER LEVELS, (DR. CONRATH 


0 F S T I M A T E S THE LOWER 23 >♦ HAVE ANY EFFECTIVE CONTR I HUT ION TO 

c make. 
c 

DATA C . MAX * NM/ 622 • 0 « 5 , 23 / 

DATA Cl f C 2 / 3 . 7413 E+ 04 , 1 . 438 BE+ 04 / 

DATA PI / 3 . 14159 / 

0 

C VP] IS THE VAPOR PRESSURE EQUATION FOR ICE 

C VP 2 IS THE VAPOR PRESSURE EQUATION FOR WATER 

C ' ■ ■ ■ . . 

C 

VPIIX) = 6 . 11 *EXP( 22.49 - ( 6141 . /X) ) 

VP 2 IX ) - 6.1 1 F X P ( 19.84 - ( 5417 . /X) ) 

FSB(X,Y)=C 1 *( X**{- 5 ) )/<PI*(EXP(C 2 /(X*Y))-l.) ) 

c 
c 

OLD RMS = 99999 . 

C : 

IF I HOT CRD ) GO TO 40 
DO 30 1 = 1 , M 
XT ( I ) = X I M ( I ) 

30 CONTINUE , 

40 CONTINUE 
C 

DO 115 I = 1 1 N L 

IF ( T ( I ) .LT. FPWM ) GO TO 116 
ES I I ) = VP? ( T ( I ) ) 

GO TO 217 

116 ESI I ) = VPKTI I ) ) 

C 

C ' RH is THE RELATIVE HUMIDITY ARRAY 
C • 

217 RH ( I ) = 0.5 

IF! PI I ) . LT . 100 ) GO TO 117 
00 ( 1 ) = ( 622.0 * 0.5 * ESI I ) ) / Pill 
GO TO 115 
C ■ 

C AT THE TROPOPAUSE AND ABOVE * ( 100 MB AMD LOWER ) t THE MIXING RATIO 

C ISA CONSTANT OF ABOUT .001 

C THERE IS A COLD TRAP THERE 

C 

117 00 ( 1 ) = 0.001 
115 CONTINUE 

C BEGIN ITERATIVE LOOP 

DO 100 L-l ♦ MA X 


F-ll 




* m iu m m**m m mm mm mm mmmmmm 


~HZ : 




C WR1 TF ( 6, 86 ) l 

C 66 FORMAT ( 1 HO *61 X « ' ITERATION » ,13) 

C CHECK RESIDUALS ' • 

C 

c THE ARGUMENT , KTYPE » IN EACH OF THESE SUBkOUT I NFS IS THE 

C niSPI.ACFNF.NT NEEDED TO BYPASS TEMPERATURE PORTIONS OF ARRAYS. 

C 

CALL TRANSWI T.OU»MtN«OH. PT « KTYPE ♦ VWCOR ) 

CALL TR ANSC ( T » M * N , OH ♦ PT * KT YP E t VWCOR ) 

3000 CONTINUE 

DO ? J = 5 . M 

DO 2 1=1 , M : 

2 T AIJ ( I , J ) = T AIJ ( I , J)*TAIJC0 2( I .J) 

C *** HOT 0 ROUND CORRECTION 

I F ( . NOT . HOT CRD > 00 T O 15 
DO 10 1=1, 

' XI ( I ) = X I M t I )-( FSB < X L AM ( I ) ♦ TB ) -F SB ( X LAM ( I ) , T S ) ) *T AU ( I * N ) 

10 CONTINUE 
15 CONTINUE 

CALL R AOH?D ( T 4 XL AN ♦ T ( N I. ) . M . N . X I 0 ) 

C 

C*** CORRECT RADIANCES IF FIRST ITERATION 
JF(L.GT.l) GO TO 90 
CALL R A D H 2. 0 ( T ♦ X L A H » T { 1 1 ) , M . I I » X I C 0 ) 

DO 80 I =1 ,M 

80 XIII) = X I M ( I ) + XN * ( X 10 ( I ) - X 1 CD ( I ) ) 

C ■ 

90 CONTINUE 

RMS = 0. 

on ioi 1 = 1 , M 

DEL = XIII) - X I 0 ( I ) 

XIXIOI I ) -DEL 
C WRITE ( 6 .151) DEL 

C 151 FORMAT I 60 X » E 1 3 . 4 ) 

101 RMS = RMS + DELUDE L 

RMS = (RWS /«)#*. -5 
C WRITE! 6,152) RMS 

C 152 FORMAT ( 1H0,55X, 'RMS RESIDUAL = »,E10.4) 

C CALCULATE REVISED H20 ESTIMATE 

CALL DTAUDUI T H.iO, M.N.DH.PT, VWCOR ) 

C DTAU/DU IS NOW STORED IN TAU(ItJ) 

no 105 I = 1 , M 

XK( 1 ) =TAU( I , N ) *TAUC02( I , N ) * . 5 *( FSB ( XL AM ( I ) , T IN — 1 ) ) - 
1 FSR(XLAM( I ) ,T(N-2) ) ) 

C . 
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SECOND HALF OF ABOVE F 00 AT ION CORRESPONDS TO THE 1/2 CHANGE IN 
B( DELTA B) IN EDO AT I ON 10 FROM .PAPER BY DR. CONRATH FT At. 

i.n - wn. - i 

DO 106 J = 1 * L N ' ! r 

X K ( J + l ) = XK ( J) + TAUI I » N — J ) *T AUCD? ( I ,N-J ) * 

1 (FSB ( XL A M ( 1 ) .T(N-J) ) - F SB ( X L AM ( I ) , T(ML-J) ) ) 

106 CONTI NO F 

DO 105 J-l ,NN 

( (C/OHO. )*DH) CAN BE TRACED TO ED DAT I DNS ♦ (NEAR ED. 7), IN 

PAPER BY DR. CONRATH. ( 1 .E. THF UNEXPRESSED BUT PRESENT BACKGROUND 

equations ) 

105 TAU(I.J) = XK ( \J) *ES(N-J) * (( C/980. >*DH ) 

THE KERNEL MATRIX IS NOW STORED IN TAU 


EQUATIONS IN HERE ROUGHLY CALCULATE THE SUMMATION 

OF THE PRODUCT OF THE SUMMATION OF THE TRANSPOSE OF K TIMES THE 

INVERSE OF THE PRODUCT OF K AND THE TRANSPOSE OF K TIMES 

XlXin, (WHERE K IS THE KERNEL MATRIX) 

;■/ ! -■ ' ' ... 

on 107 1 = 1 .m 

DO 107 K = 1 . M ... 

SUM =0. 

DO 108 J-l.NN 

108 SUM = SUM + T AU ( I » J ) *T AU ( K » J ) 

107 S(l.K) = SUM T ■ * o 

DO 109 1=1, M 

RR IS THE DAMPING FACTOR WHICH ON NIMBUS WAS SUPPLIED BY I . REV AH 
THIS DAMPING FACTOR CORRRSPONDS TO THE GAMMA IN THE PAPER . 

9 S (I » I ) = S ( 1,1) + RR 

CALL M A T I N H ( S » M » 0 ) 

DO 112 1=1. NN 
SIM = 0. 

DO 113 ,) = 1 » M 

SOM = 0. 

on 1 1 1 K = 1 , M - ‘ 

111 SOM = SOM + T AU ( K . I )*S(K.J) 

113 SIM = SIM + SOMMXIXIO(J) 




RH ( <V— T ) = RhUN-l ) + S I M ! 

RH ( N — I ) = AM INK RH(N -1 ) , L.O) 

11? 1 F ( RHI N-I ) . Lr .0. ) KH(N-I) = .01 

C W R l T E ( R « 2 0 1 0 ) (RH( I ) , I = l , ML ) 

C2010 FORMAT ('-RH IN ESTH20' /(IX. 10G13.5) ) . 

SAM = 0. 

DO 114 1=1, ML 

on ( I ) = 6 ? ? . * K H ( I ) » E S ( I ) / P ( I ) 

IF ( P < I ) .LT. 100. ) U(l( I ) = .001 
'11A-. SAM = SAM + 00(1) * p(I) 

c 

C THIS IS THE AT THE TOP OF THE ATMOSPHERE 

C 

UTOTAL = OH* SAM / 980 . 

C 

C WR I TE ( 6,118) UTOTAL 

C 1 1 B FORMAT ( 1 HO , * UTOTAL = ',F9.5) 

C *** TFST FOR CONVERGENCE . 

I F ( ARS ( RMS-QLDRMS ) . LT .CVGH 20 ) RETURN 
100 OLDftMS = RMS 

RETURN ! 

F.ND 

SUBROUTI NE E STLSQ ( X I , X L AM , M ) 

C GSFC PROGRAM NO. S 00091 NIMBUS-4 TEMP . /HUM I 0 1 T Y ESTIMATION PROG 

C 

COMMON/CHA/ SUM.RMSH20 

COMMON/Z-ZZ/XIIK 22 ) ,PHI ( 22 , 100 ) 

C 

COMMON/ XXX/ TS, PS, PT, DH, N, NL, R, 

U MTOTAL » 

■ # P( 99), Til 99), 

ii ■ I HOTGRD 

LOGICAL HOTGRD 

C 

D I M E N S I ON XI (22) , X L AM (22) 

DI MENSION H ( 2 2 , 2 2 ) , X I X I 01 2 2 ) K 
REALX-B H j 

COMMON / H 2 0 / T0( 99),00( 99) ,TAU( 28,100) 

DATA Cl ,C 2 / 3 .7 4 1 3 E + 0 4 ♦ 1 .4 388 E + 0 4/ 

DATA P 1/3. 14159/ 

C V, : 

F S B ( X , Y ) = C 1 x- ( X * X; ( -5 ) ) / ( POM EXP( C2/ ( X*Y ) )-l . j ) 

DRD T ( X . Y ) = ( FSB ( X , Y ) *C2*EXP ( C2/ ( X*Y > ) ) / ( XX=YX s Yr ( EXP ( C2 / ( X*Y ) )-l . ) ) 

C :■ : ■.~u v 

NIL = NL-1 


l 1 
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nri 10 t = i ♦ni. 
in Tim =to ( i > 
on ion l=i,3 
LL=L-1 

C WK T TE (ft* Aft ) LL ■ 

C Aft FORMAT ( 1H0, 5.3 X, ' TEMPERATURE PROFILE NUMBER- SI1) 

CALL HA 1 1 ( T 1 , XL AM , T 1 ( ML ) » M , N , X 1 0 ) 

C WRITE (ft, l 50) 

C 150 FORMAT (T HO ,5? X, * K E S I DUALS (RADIANCES)' ) 

C 151 FOR M A T ( A 0 X, E 13 • 4 ) 

SUM = 0. 
on mi i=i * m 

OFL = XI ( I ) - XI 0 ( I ) 

X I X T 0 ( I ) = DEL 
C WR ITE ( AD 51) DEL 

101 SUM = SUM + (DELUDED 
SUM = ( SUM/ M )**. 5 
WRITE (ft, 152 ) SUM 

152 FORMAT DH0,50X, 'RMS RESIDUAL (RADIANCES) = ',E10.4) 

I F ( L.Ef.V.3 ) GO TO 1000 

DD 110 1=1 ,M ■ T 

MLL IS THE NUMBER OF MIDPOINT LAYERS ( ? ) - CHECK WITH OR. CURRAN j 

DO. 102 J= 1 VNLL I 

PHI ( I * J ) =- D H UT ( XL AM ( I ) * T 1 ( J ) ) * (TAU(I,J + 1) - TAU(I,J) ) 

102 CONTINUE j ■ J 

PHI( I , Nl. ) =DRDT ( XL AM ( I ) ,T1(NL) ) * TAU( I , N-l ) 

110 CONTINUE : ! 

DO 104 1=1, M 1 : 1 1;| 

DO 104 K=1,M I 1 

SOM = 0. • DT 

DO 103 J = 1 , N L j| 

THIS IS THE PRODUCT OF PHI AND PHI TRANSPOSE 1] 

103 SOM = SOM + PHIII ,J)*PHI(K,J) 

104 H ( l ,K ) = SOM | j 

DO 1 05 1 = 1 , M .j 

R IS THE DAMPING FACTOR, (TO BE SUPPLIED THRU BLOCK DATA), WHICH M 

I .REVAH SECURED FOR THE NIMBUS PROJECT. J : j 

105 H( I , I ) = H( I , I ) + R S J 

CALL MAT INT ( H ,M , 0 ) 

DO 108 1 = 1 , N L ID 




! 



SAM = 0. 

Of) 109 J = l , M 
SIM = 0. 

nn 107 K=i-» m 

107 SIM = SIM + PHI ( K, I )*H< K ♦ J ) 

109 SAM = SAM + S IM * X ] X I (1 ( J ) 
lflS TUI) = Till) + S AM 

ion CONTI Mill: 

1000 CONTINUE 
K P TUP N 
END 

SUBROUTINE OETSHLI IDTI91.TS) 

COMMON /SHLDT / TSVAL (100) .TIMES! 100 ) 

C 

C THIS IS A DUMMY SUBROUTINE 

C 

RETURN 

END 

SUB ROUT I NE H 2 OR A D ( X L M H 2 0 * D E L H 2 Q ♦ X 1 H20 , XI.M I N t X I , BEGW AV » DE LW A V , 
a MRADS.MH20) 

C *** GS.FC PROGRAM MO. S 00091 NIMBUS-4- TEMP . /HUM I D I T Y ESTIMATION PROG 
C t** COMPUTE RADIANCES FOR THE WATER VAPOR CALCS. 

DIMENSION XLMH20( 1 ) , OE LH 20 ( 1 ) , X I H 20 ( 1 ) , XLM I N ( 1 ) t X I (1) , 
u JX( 6),JY( 6 ) » 7. ( 6) 

LOGICAL FSTIME/ .TRUE. / 

C 

c 

DO 100 I = 1 » MH20 
I F ( .NOT .FSTIME) GO TO 60 

JXII) = ( ( X L M H 2 D ( I )-DELH20( II/2.0) - BEGWAV) / DELWAV + 1.99999 
J Y ( I ) = ( ( X L M H 2 0 ( I ) +DELH20 ( I 1/2.0) - BEGWAV) / DELWAV + 0.99999 
Z ( I ) = JY ( I ) - J X ( I ) + 1 
C 

60 JSTART = JX(I) 

J STOP = JYU ) 

X = 0 

on 70 J= JSTART ♦ JSTOP 
70 X = X + X I ( J ) 

X I H20 ( I ) = X/Z ( I ) 

C 

100 CONTINUE 

FSTIME = .FALSE. 

RETURN 

END 

SUBROUTINE MAT INH< A.N.M) 
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***. GSFO PROGRAM NO. S 0009 l N I MRUS*- 4 T EMP . /HUM I D 1 T V feST I MAT I DM PROG 
MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 
IMPLICIT REAL*H( A-h,0-Z) 

DIMENSION I PIVOT! 9),A( 6. 6),H< 9,1), INDEX ( 9,2 ) , PIVOT! 9) 

**** USED FOR HUMIDITY INVERSIONS **** 

INITIALIZATION 

ID D F T F R M =1.0 
15 DO 20 J-l ,N 
20 IPIVOTf J ) =0 
30 DO 550 1=1, N 

S F ARCH FOR PIVOT ELEMENT 

40 A MAX =0.0 
45 DO 105 0 = 1, N 

50 IF (I PIVOT ( J ) . Ep , 1 ) GO TO 105 
60 DO 100 K = 1 , N 

70 IF I I PIVOT ( K ) -1 ) BO, 100,740 ’ 

BO IF ( OARS ( AMAX ) . GE . OAR'S I A ( J , K ) ) ) GO TO 100 
85 I ROW" J 
90 ICOLUM=K 
95 A M A X = A ( J , K ) 

100 CONTINUE 

105 CONTINUE • ' 

110 I PIVOT ( ICOLUM) = I PIVOT! ICOLUM )+l 

INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

130 IF ( IROW.EO. ICOLUM ) GO TO 260 
140 DETFRM=-DE TERM 

150 on 200 L = 1 , N V 

160 SWAP- A ( I ROW » L ) 

170 A ( I ROW , !_ ) = A ( I COLUM , I. ) 

200 A ( ICOLUM ,L )=SWAP 
205 I F ( M . L E . O ) GO TO 260 
210 DO 250 L = 1 , M 
220 S W A P = B ( I R OW , L ) 

230 B ( IRON , L ) = B ( ICOLUM .LI 

250 B ( ICOLUM , L ) =S WAP I . 

260 I ND EX (1,1) = I ROW 
270 INDEX ( I ,2 )= ICOLUM 



T 






310 PI VOT ( I ) =A{ ICUI.UM, lUlUJO ) 

320 mZFRM~nf:TERM*Pl VOT( I) 

c ■ . 

C DIVIDE PIVOT RON BY PIVOT E I.FMRMT 

C 

3 3 0 A ( I c 0 1. UM ♦ J COL UM ) = 1 . 0 
340 on 3 30 !.. = ) , ,M 

330 A ( ICOLUM. L)=A( ICOLUP . D/PIVOT ( I ) 

333 J E ( M . t_ B . P ) fit J TO 3 HO 
300 on 370 l_ = l ,M 

370 H ( I COLIIM . L ) = R ( I 001. DM ,L)/P I VOT( I ) 

C 

C REDUCE WON-PIVOT ROWS 

C 

380 00 880 1.1 = 1 ,M 

300 I F ( LI . BO .1 COL OH) GO TO 550 

400 T=A ( 1. 1 * I COLON ) 

4 2 0 A ( L l » I COLUM ) =0 . 0 
430 DO 450 l. =1 » N 

450 A ( LI ,L )=A ( LI .L )-A ( J COLUM, L )*T 
485 IF(M.LE.O)GO TO 550 
460 00 500 L = 1 . M 

500 B ( L 1 , L ) -Bf L 1 , L ) -B ( ICOLUM ♦ L ) *T 
550 CONTINUE 
C 

C INTERCHANGE COLUMNS 

C 

600 DO 710 1 = 1, N ■ ' 

510 L=M+1-I 

620 IF ( I NO EX ( L » 1 ) . EO. INDEX ( L , 2 ) ) GO TO 710 
630 JROW- INDEX ( L , 1 ) 

64 n j COLUM = INDEX ( L, 2 ) 

550 DO 705 K=1,N \ 

. 650 SWAP=A( K, JROW ) v 

570 A ( K , JROW ) =A ( K, JCOLUM ) 

700 A ( K, JCOLIJM ) = SWAP 
705 CONTINUE 
710 CONTINUE 
740 RETURN 

END !Z1 ■' 

SUBROUT I ME MAT I NT ( A , N » M ) 

C *** GSFC PROGRAM MO. S00091 NIMBUS-4 T BMP . /HUM I 0 1 T Y ESTIMATION PROG 

C ; : 

C MATRIX' INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 


C 



o o o o o o r> o 


IMPLICIT REAI_*H( A-H.U-Z ) 

D I MENS I ON I PI V n T ( 33 ) , A( 22. 22 ) , K( 33, 1 ) . 1 NDEX( 33.? ) , PIVOT! 33 ) 
C 

C **** US bn FOR TEMPERATURE INVERSIONS **** 

0 initialization 
C 

10 DF TERMS 1.0 
IS 00 20 J = 1 » N 
20 I P I V n T ( J ) =0 
30 on 5 SO 1=1 .N 

SEARCH FOR PIVOT ELEMENT 

40 AH AX =0.0 
AS DO 105 J = 1 1 N 

so if (ip iv nr ( j ) . E o. i ) on to 105 
60 on 100 K-l.N 

70 IF ( I P T VriT ( K ) — 1 ) 80,100.740 
80 I F ( OARS ( ANAX ) . GE . DABS ( A ( J . K ) ) )G0 TO 100 
85 l ROW = >l 
00 ICni.UM = K 
95 A M A X = A ( vi . K ) 

100 CONTINUE 
105 CONTINUE 

1 10 I P I vnT ( I C OLUM ) - 1 P I VOT ( I COLUH ) + l 

INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

130 I F ( I ROW . EO. ICOLLIM ) GO TO 260 
140 DETERf‘ = -DETERM 
150 DO 200 L = 1 * N 
160 SNA P = A ( 1 ROW * L ) - 
170 A ( IRriN.L ) =A ( ICOLUM.L) 

200 A ( I COLON ♦ L ) =SWAP 
205 IF(M.LE. 0 ) GO TO 260 
210 DO 250 L = 1 » M ■ ■ ' 

220 SWAP=R( I;ROW»L ) 

230 B ( I ROW « L )=B( ICOLUM»L) 

250 B( tCOLUM. U=SWAP 
260 I NDFX ( I . 1 )=1R0W 
270 INDEX ( I . 2 ) = I COL UM 
310 P1VI1T( I ) =A ( ICOLUM ICOLUM ) 

320 DFTERM=DETERM*PI VOT( I ) 

DIVIDE PIVOT ROW BY PIVOT ELEMENT 


O o o 




k 


a ( icmjjf-it ff.niUM ) = i . o 

OH 3*50 l. =l ,N 

A ( ICfH.tiiV,L)=A( ] COLON, L) /PIVOT ( I ) 
IHH.I.P.niRO TO 3 HO 
no 370 I. = I , H 

B ( I COL Ur* , L ) = B ( I COLIJM ♦ I. ) / P I VOT( I ) 

REDUCE NDN-P I VOT ROWS 

00 *530 L 1 = 1 » N 

IE(L1 .Ffi. I COLIJM ) GO TO 550 

T“A < LI , i COL IIP ) 

A ( LI . I COLIJM )=0.0 
on 450 I. = 1 * M 

A ( L 1 » L ) = A (LI » L ) -A ( I COLIJM * L) - T 
IF(M.LE.O)GC) to 550 
on 5 00 L = 1 ♦ M 

R { L 1 i L ) -B ( L 1 » L ) -0 ( I COLIJM , L ) *T 
CONTINUE 

INTFRCH AM GE C 0 L IJM N S 

DO 710 1=1 »N 
L = M + 1 - I 

IF ( INDEX(I_,1).EQ« INDEX ( L ,? ) ) GO TO 710 
JR 0W = I MDEX ( L , 1 ) 

J CO LUM = INDEX ( L » ? ) 

DO 705 K = 1 » N 
SWAP = A(K * J ROW) 

A (K » JROW ) = A ( K ♦ JCOLUM ) 

A ( K » JCOLUM ) = S WA P 

CONTINUE 

CONTINUE 

RETURN 

END 

SI IB R OU TINE N C LOUD ( DAT 191 , I D T 1 9 1 ) 
DIMENSION D A T 1 9 1 (44 B ) »XI ( ?8) 

INTEGER*? IDT 191(896) 


*** GSFC PROGRAM NO. S00091 NIMBUS-4 T EMP . /HUM I D I TY ESTIMATION PROG 


COMMON/CHA/ 


RMSTKP»KMSH?0 


a 


o o o n o n rv n o o o' o o o o o o o o p o ^ 



c 

c 


chmmiin/cor/tauco?! ?h, ion ) ,CO?t ?fi,9 ) , xk ( ?h ) , xkmi.il T (?h ) 

COMMON /H20/ T0( 99),00( 99) ,TAIJ( 2H, 100), WATER! 28,9) 

COMMON/ XXX/ TS ♦ PS * PT» OH, N, ML, R « 


a 

it P( 99 ) , T1 ( 99) , 

M TOTAL , 

il 

HOTGRD 

LOGICAL SETP, 7ER0VL, 
DATA SETP / .FALSE. / 

HOT GR D 


II IS USED IN THE CALL SEQUENCE TO ESTH20. IT APPEARS 
TO BE USED THERE IN THE CAll TO SUBROUTINE RADH2G. THERE 
IT APPEARS TO BE USED IN THE CALCULATION OF THE PLANCK 
RADIANCE FUNCTION. FSB* AS INDEX TO THE 'TO' ARRAY, INSTEAD 
OF USING TS, (THE SHELTER OR SURFACE TEMPERATURE). HENCE, 
THE VALUE OF 99. ( THE LAST VALUE OR SURFACE VALUE). 

DATA II/ 99 / 

SIMILARLY, CVGHPO IS USED IN THE CALL TO ESTH20. IT IS 
THE TOLERANCE ALLOWED FOR CONVERGENCE ♦ (I . E,. IT IS THE 
LIMIT ON THE DIFFERENCE OR CHANGE IN RMS VALUES CALCULATED 
BFYOND WHICH CONVERGENCE IS NOT CONSIDERED TO HAVE TAKEN 
PLACE. 

DATA GVGH20 / .001 7 


RH?(1 IS A DAMPING FACTOR USED IN ESTH20 TO FACILITATE 
CONVERGENCE OF MATRIX INVERSION. SEE PAPER BY DR. B . CON RATH. 


DATA RH20/1.E-1?/ 


C 

C 

C 

C 

C 


DIMENSION X L A M ( ? 8 ) .XL M H 2 0 ( A) ,DFLH?0( A ) , X I H2D ( A ) 

DATA XL AM/ 1 5 * ♦ 14. 9 ♦ 14 .8 , 14 .7 5 ,14. 7 , 1.4* 65 , 14.6,14.55, 14.5, 14.45, 

1 14 . 4 , 14 . 35 , 14 . 3 , 14 . 25 , 14 . 2 , 14 .) 5 , 14 . 1 , 14 . 05 , 14 . , 13 . 95 , 

2 13.9, 13.fi, 6. 4, A. 5, A. 6, A. 7, A. 8,6.9 / 

NOTE - THE FIRST TWELVE WAVELENGTHS ARE USED IN DETERMINING 
TEMPERATURES , ( IN TEMPER-ATURE INVERSION SECTION) , AND THE 
LAST THREE ARE USED FOR HUMIDITY CALCULATIONS, 
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c 


c 

c 

c 

c 


DMA XLMWIN/11.V/ 

XLMWIM IS THE WINDOW WAVELENGTH FOR DETERMINING IF HOT GROUND 
CORRECTION IS NECESSARY 


HUMIDITY ASSOCIATED WAVELENGTHS USED HERE WERE PREDICATED ON 
THE JSC ORIGINAL PROMISE OF GOOD S-191 DATA IN THOSE AREAS. 
SUCH DATA WAS NEVER PRESENT! 


EQUIVALENCE ( XLMH20I 1 ) ,XLAM<?3) ) 
EQUIVALENCE (XI(?3> ,XIH?0< 1) ) 
LOGTCAL*l LOND 

DATA MH2M /6/ 

DATA C1.C2 /3.7413E+04, 1.43H8E+04/ 
DATA P 1/3. 14 159/ 


PLANCK RADIANCE FtJNCT I ON . ( NOT E- 1 NV ER-SE PLANCK IS USED TO 
CALCULATE EQUIVALENT BRIGHTNESS TEMPERATURES - THIS IS FORWARD 
PLANCK ) 


FSB ( X , Y ) =C 1 * ( X**( -8 ) ) /< PI v( EXP < C?/tX*Y) ) -1 . ) ) 

FT R IS THE INVERSE PLANCK FUNCTION REFERRED TO ABOVE. 
FTB(X,Y)=C2/(X*AL0G( 1 . + ( C 1/ ( P I 4 ( X**5 ) *Y ) ) ) ) 


NOTE THESE VALUES WILL RE CHANGED - FIRST, INDICES FOR 

XI WILL BE ALTERED TO FIT DESIRES OF DR. CURRAN 



THE FIRST ENTRY TO THIS PROGRAM CAUSES PRESSURE VALUES, 
IN P. TO RE SET. SUBSEQUENT ENTRIES WILL BY-PASS THIS 
LOOP. 


c 


.ip < s f t p ) on in io 

PSTFP=(PS-PT)/Nl 
PRFS-P T-PSTEP 
DO 6 l.= l,M|. 

PR FS “PR E S+PST E P 
P ( L ) = P R E S 
5 CONTINUE 
SFTP=. TRUE. 

10 COM T I NI I p 

0 

XT (1 ) =0 AT 1 9 1 ( 444 ) 

Xf IP )-DAT191 ( 443 ) 

XI ( 3 }=0AT191 (44? ) 

XII4) = 0 AT 3. 91 ( 441 ) 

X I ( 3 )=0 AT 191 (440) 

XI (M=PAT191(439) 

XI ( 7 ) = 0 A T 1 9 1 ( 4 3 R ) 

X I( R ) - PAT 191 (437') 

XI ( 9 ) =0 AT 1 91 (436) 

XI ( 10 )=DAT191 (435 ) 

XT (11) = 0 AT 191 ( 434 ) 

XI ( 1 ? ) = D A T 1 9 1 ( 4 3 3 ) 

XI ( 13 ) = 0 AT 1 9 1 (43?) 

XI ( 1 4 ) =OAT 1 9 1 (431 ) 

XI ( 15 ) = D AT 1 9 1 ( 430) 

XI ( 16 ) -0AT191 (4?9 ) 

XI ( 1 7 f =-0 AT 1 9 1 ( 428 ) 

XI ( 1, R ) = 0 A T 1 9 1 ( 4 ? 7 ) 

XI ( 19 )=DAT191( 4?6) 

XI (30 ) =DAT191(4?5) 

XI (23 )-DAT191( 434) 

XI ( 2? )=DAT191 (423 ) 
WINnnW=0AT191 ( 396 ) 

XT (?3)=DAT191 (349) 

X! ( ?4)=0AT191( 350) 

X l ( 2 5 ) = DA T 1 9 1 ( 3 5 1 ) 

XI ( ?6 ) -DAT 19 1 ( 35?) 

XI (27) =DAT 1 91 ( 3 53 ) 

XI ( 28 ) -DAT 191 ( 354) 

7.FKnVL = . FALSE. 

DO 15 ! . = ? 3 ♦ 2 R 

IF ( X I ( L ) . EO. 0 . ) 7ER0VL- . TRUE. 
15 CONTINUE 
C T 


: V 
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c 

C ■ OF BUG 

c 

WR I re ( 4.3000 ) XI 

3000 FORMAT! IHO, ' XI VALUES INITIALLY HERE ' / , IX ♦ 7 FI 4. 5 / » IX » 

1 7 F ). 4 . 5 / ♦ 1 X , 7 E I 4 . 5 / » 1 X r 76 1 4 • 5 / ) 

C 

WRITE (4, 3 100 ) R 

3100 FORMAT ( IHO. '*****• , • FOR THIS RUN THE VALUE OF R WAS ' , 
1 F 1 6 , ft . 1 X » ' * ' / ) 


VALUES INITIALIZED THRU CALLS - WILL BE CHANGED 

CALL GETSHL! I0T191 ,TS ) 

DH = (ALOG! FS J-ALOG! FT) ) / ( N- 3. - 
CALL VI EWAN! DAT 191 , VWAN ) 

VIEW ANGLE WILL MODIFY INITIAL VALUES 

V N = V W A N* . 0 l 74 5 3 3 

VWCOR = ! l./COS! VN) ) j V 


CALL TRiSIS.XN ( PT , OH, MTOTAL ♦ MH2Q.VN t MTOTAL ) 

FSB U I N = F S B ( X L M W I N » T S ) 

OF LT A I =u I NDOW-FSB W I N ; i VC 

. , ' . . i ■ - 

LIMITS BELOW WERE DERIVED BY DR. CURRAN - THE FIRST REJECTION 
CRITERION IS BASED ON A 20. DEGREE TEMPERATURE DIFFERENCE. 

THE SECOND HOT GROUND CORRECTION LIMIT IS BASED ON A 5 DEGREE 
TEMPERATURE D IFFERENCE.! AS IS THE THIRD THOUGH NEGATIVE) . 
FURTHER CHANGES COULD CONCEIVABLY BE NEEDED, LATER ANALYSTS 
MAY WISH TO CONSIDER SUCH LIMIT CHANGES. 

DELTAJ IS THE DIFFERENCE BETWEEN THE ACTUAL OR SENSED RADIANCE 
AMD THE 1 PLANK CALCULATED VALUE, (BOTH AT THE 11.1 MICRON WINDOW) 

I F ( DELT A I .LT. 2 • 23E-04 ) GO TO 20 
WRITE (6, 2000) 

2000 FORMAT! ' + ' ,T?5, 'REJECTING THIS SPECTRUM, DELTA I >=10.') 

RETURN 
20 CONTINUE 

I F ( DELTA I . LT . 5.5 HE -05 ) GO 
HOTGRD= .TRUE. 


0 30 


REPRODUCIBILJTy OF Tnp 
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WR JTE(6,2100) 

2100 FORMAT ( * + • ,T25, 'NEED HOT OKU UNO CORRECTION. I) 

on m 50 • 

30 CONTINUE I 

I F ( DFLTA I .LE. -5. 5HE-05 ) GO TO 40 

HOTOKO=.FALSET 

HR 1 TE ( 6 , 2 200 ) 

2200 FORK AT ( '+' ,T?5, '00 MOT NEED HOT GROUND CORRECT I ON. ' ) 
: GO TO 50 ; 

40 CONTINUE 

HOTGRO=. FALSE. 

50 CONTINUE 


IN DEGREES KELVIN. THE EQUIVALENT TEMPERATURE IS CALCULATED 
BY INVERSION OF THE MEASURED RADIANCES. 



TB= FTR< XLMWIN. WINDO W) 

c ,v :■/ 

XM = 0 

PC = 0 T - rrC: '}!;:-;:: ; - 

OLDTOT = 99999. 

C A L L TRANS W ( TO . 00 » M TOTAL , NT DH ,PT,0* VWCOR ) 
s ; CALL TR A N S C ( T 0 , M T OT A L , N » DH * P T » 0 , V WCOR ) 

DO 450 I TER = 1,5; - 
IF (ITER . EO. 1) GO TO 420 
C *** RECOMPUTE TAIL IF ESTH20 HAS USED IT. 

■ CALL TR AN S W ( T 1 , 00 , MTOT AL , N * OH VP T t 0 » VWCOR ) 
CALL TRANSC ( T1 » MTOT AL, N »DH»PT» 0 » VWCOR ) 


420 CONTINUE 1 • 

DO 430 J=1 ,N 
DO 430 1=1, MTOT AL 

430 TAU ( I , J ) = TAIJ ( I , J ) *TAUC02( I V J ) 

I F ( HOT GR D ) GO TO 416 
00 415 LH=1, MTOT AL 

XI ( LB )=XI (LB )-( FSB( XLAM( LB) ,TB )-FSB(XLAM< LB ) » TS ) )*TAU( LB,N) 

415 CONTINUE 

416 CONTINUE 

WRITE (6, 2400) HOT GRD 

2400 FORMAT ( J HO. • XI VALUES AFTER CORRECTION LOOP - HOT GRD= • ,14/ ) 
WRITE (6, 2. 500 ) ( I ♦ XL AM (I ) ,XI (I ) ♦ 1 = 1 tMTOTAL ) 
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2500 FORM A T ( 1 H , ' I = ' , 1 5»?X, • X |. AM= » * F 1 1 . 5 , 2 X , • X 1 = » » E 1 5 . 8 , 5 X , • I = • ♦ I 5 , ?X 
'■■■■■ 1 »XLAM=' ,Fll.5,?X,'XI=» t E15.8) 

CALI. ESTLSOI XI , XI. AH ,KTUT AL) ' 

C • ' ; ■ 

405 CONTINUE ■ 'T'v. . 

c ■ ' . ■ ■ 

C IF AMY MIXING RAT I 0 (HUM 1 01 TY ) ASSOCIATED RADIANCES ARE ZERO 

C SKIP THE CALCULATIONS, (MATRIX INVERSION WOULD BE IN PUSS IDLE! ) 

C 

I F ( ZEROVL ) DO TO 450 
C *** COMPUTE WATER VAPOR, 

CALL ESTH20 ( X 1 i-i 2 0 • X L M w 2 0 , M H ? 0 , IJ T 0 T A L , T 1 , T R ♦ I I , RH2U » CVGH2Q » 

1 VWCOR.MTOTAL ) 

C . . ■ - ; T . 

C .U <.1, *1, 

*«» «v , 1 

C VERIFY THE VALUES BEING USED FOR II AMD CVGH20 BEFORE USING THE 

C ' ROUTINE . SEE DRS . CONKATH OR CURRAN , OR H. POWELL ( PM I ) . 

Q 3J5 sjc sjc sj; 

C *** test FOR CONVERGENCE. 

I F ( ABS ( UT OT AL-OLDT OT ) /UTOTAL .LE. CVGTH2IG0 TO 460 
OLDTOT = UTOTAL 
450 CONTINUE 

IF (.NOT. ZEROVL) GO TO 460 
C ■ 

C SINCE NO HUMIDITY CALCULATIONS WERE MADE, UTOTAL WAS NOT SET. 

C SET IT USING FIRST GUESS VALUES. 

C 

SAM=0. 

DO 455 LT=1 »NL 
455 SAM= S AM+OO ( LT ) X s P ( LT ) 

UTOT AL= ( DH*SAM ) /980. 

460 CONTINUE . 

C SUBROUTINE WRNCLD WILL BOTH LIST CALCULATED VALUES ON PRINTER 

C AND PLACE THOSE TABLES ON MICROFILM USING THE WOLFF PLOT PACKAGE 

C ■' . . , ' . /. T/TTTV 

c • . .. . 

C RECALL THAT UTOTAL IS THE TOTAL AMOUNT OF WATER VAPOR IN THE 

C ATMOSPHERE 

C 

c ./■■■■■: ■ -'y; .. ; , 

Q *!* '!* *!' *i» ^ v '!* 'I* V 

C NOTE - CORRECTION FACTOR OF VWCOR MAY NEED TO BE USED HERE 

C BEFORE VALUES ARE PLACED ON TAPE AND PRINTER. LATER ANALYSTS 

C SHOULD DETERMINE WHETHER THIS IS DESIRABLE. 
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RETURN ./'''^'^''^V^;'"-:'^ 

■ . end .'- ’ M:..':-.. ; ■ : . 

SURROUT 1 ME TRANSC(T»M«N«DH»PTtKTYPE»VWCOR) 

C *** GSFC PROGRAM NO. S 00091 NIMBUS- 4 TEMP ./HUMIDITY ESTIMATION PROG 

c v v /; : : ■: . ■ ■ . 

C THIS SUBROUTINE CALCULATES TRANSMISSION COEFFICIENTS AS A 

C FUNCTION OF PRESSURE LEVEL. 

C - . ' f V. /?'* -”V ' ” ” 

DIMENSION T(.IOO) ,EXPP( 28. 99) 

COMMON /.C 02 / TAU(28. 100) ,C0( 28) ,C1< 28 ) ,C2( 28) T C3( 28) ,C4( 28) »e5(28) ♦ 
# C6(28) ,C7(28),C8(28) ,XK(28) . XKKULT( 28) 


DO 11 K= 1 » M 
I =K+KTY PE 
TAVOLD = T ( 1 ) 
POLD = PT 


i ' 


DO 11 J - 2 » N 

V ' 

j. f- 


P = EXPP ( I , J-l ) i 


I ! : : • 

I . \ 


TAV = ( POLD-TAVOLD + 

( P - POLD) *T ( J- 1 ) ) /P 

1 

I ! 


IF (Co < I' ) : . N E . 0) GO 

TO 10 

i : i' -i. ■ : 

1 1 ■' . - 

9 

TAU( K . v) ) - I. 


\ \ 


GO TO 1 


| '.I’-.:;...-. ,: J.' 

10 

U = 0.253-P 


i u ■ ■( 

IT ' 


PAV = .5 * P 



X = A LOG (U*273./TAV) 
Y - ALOG( PAV/1000. ) 


I:, 


Z = ALOG( TAV/273. ) 




C 

C MOTE - THIS IS A POLYNOMIAL FIT TO THE TRANSMISSION EQUATION 

C AS A FUNCTION OF ALTITUDE 

C 

W = C0(I)+C1 ( I )*x + C 2 t I ) *Y +C3 ( I )*Z +C4( I )*X*Y*.l +C5( 1) 

# *(X*Z ) + CM I)*X**2*. 1 ... . 

a + CT( I )*X**2*Y*.01 

# + C8( I ) *( X*Z )*Z*. 1 
W = XKMUtT ( I ) * W 
IF(W.LT.-7.0) GO TO 3 
I F.( W . GT .2.5 ) GO TO 4 

TAUT K. J ) = EXP ( -EXP (14) *VWCQR ) 

C - ; : ■■ 

C NOTE - EXPTW) IS THE ABSORPTION OPTICAL THICKNESS TO THE 

C PRESSURE LEVEL .PAV.( THE-. AVERAGE PRESSURE FOR THE CENTER 

C OF THE CURRENT LAYER). THE TRANSM I SSI 0N» TAU » I S EQUAL TO 

C THE OPTICAL THICKNESS TIMES THE SECANT OF THE VIEWING ANGLE. 


;i ■ 


T ' ; 

t j;: 



•? 
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1 


-GO TO l 

3 TAUT K, J ) = 

gii in i 

4 TAU( K « J ) = 0. 

I POLO = P 
TAVOLD - TAV . 

II CONTINUE 
DO 2 I =1 • M 


2 TAUI I vl ) - 
RETURN 
C 

V# O* «J> 0> %i# %*> *1* . :*1# V> < 

^ t *p 'p *p v *p +%> ? p ?p *p t t 'p "*> *p *r--n* *p f p f p *p *i % 4 


initialization 


ENTRY TRNSINI PT.DH,MT0TAL.MH20,N.KTYPE) 


DO 900 J =2 , N 

PP = ALOG(Pt) + ( J-l )*DH 
DO 800 I =1 ♦ MTOTAL 
800 FXPP ( I , J — 1 ) = EXP ( PP+XK ( 1 ) ) 

DO 900 I =1 »KH20 



sjc >{s Jjc ?;c sjc s{c 5jc $ ;J< :;c & 5jc j;c sjc 5 |c 



XK IS THE TRANSMISSION CORRECTION FACTOR ARRAY PASSED THRU 
COMMON C02 ‘ 


EXPPT I+KTYPE, J-l )=EXP( PP+XK ( I+KTYPE) ) 

900 CONTINUE 
RETURN 
END 

• SUBROUTINE TRANSWI T , 0 , M , N , DH , PT . KT YP E , V WCOR-) 

C ##'* GSFC PROGRAM NO. S00091 NIMBUS-4 TEMP . /HUM I D I T Y ESTIMATION PROG 
COMMON / H 20/ TO ( 99).Q0( 99 ) . TAU ( 28 . 100 ) 

COMMON/ H20/C0I 2 8 ) . C 1< 28 ) . C 2 ( 28 ) , C3 ( 28 ) , C4 ( 28 ) t C 5 ( 28 ) , 

* CAT 28 ) » C 7 ( 28) » C 8 ( 28) 

DIMENSION T( 99). 0( 99) ,PP( 100 ) 

C *** "U» IS USED IN SUBROUTINE TO INI T. 

COMMON/UTOT/U 

C 

LOGICAL FST I ME/ .TRUE . / 

C 

I F ( .NOT, FST I ME ) GO TO 110 
FSTIME = .FALSE. 

APT = A LOG ( PT ) 

DO 100 J = 1 * M 
H=APT+{ j-l )*DH 
100 PP ( J ) = EXP(H) 


■ /J..' : V 
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C 

110 CUNT I NUF 

C " ■ ' ' ■' ^ 

PAV/Ul.n = 0. ' •; 

TAvm.n =-^r v . 

PULD - PT T 

um.n = o. 1 
do i j = ? • n 
p = pp(j) 

I F ( 0 ( J - 1 ) .EO.O. ) GO TO ?. 

U = IJflLD + 0(J-U*( P-POLD ) /980 . 

PAV = (UOLD*PAVOLD + .5*(P + POLD)*(U - UOLD))/U 
TAV = ( UDLDVt AV01.D + T(J - 1 ) * ( U - UOLD))/U 
Gf) TO 3 ' : : ; / 

2 CONTINUE ' 

DO 4 I = 1 , M 

4 T A U ( I . . J ) = 1. 

PUI.D = P 
GO TD 1 

3 CONTINUE 

X = A LOG (1)^2 73. /TAV) 

Y = ALOGI PAV/ 1 000 . ) 

Z = A LOG ( T A V /? 73 . ) 

PAVOLO = PAV 
TAVOLD = TAV 
POLO = p 
HOLD = U 

on i k= i »H .-'V 

■ J = K+KTYPE 
I F ( CO ( T ) . NE .0 ) GO TO 10 
9 TAU(K.J) =1. 

GO TO 1 

10 W = CO(I) + Cl ( I )*X + C2( I ) *Y + C 3 ( I ) S '-Z + C4 ( I ) *X* Y* . 1 + C 5 ( I ) >:* X 
U *Z + C6( I )*X*X*. 1 +C7( I )*X*X*Z*. 1 + C8 ( I )*Y*Z*Z*. 1 
IF( W.LT.-7.0) GO TO 7 
I F ( W * GT .2.5) GO TO 8 

AS IN TRANSCt THE SECANT OF THE VIEW ANGLE MUST BE MULTIPLIED 
BY THE ABSORPTION OPTICAL THICKNESS TO YIELD THE REQUIRED VALUE 
FOR THE TRANSMISSION COEFF I C I ENT , TAU. HERE, WE CALCULATE VALUES F 
THE MIXING RATIO. (HUMIDITY MEASURE). WHILE IN TRANSC, WE DO 
SO FOR CARBON DIOXIDE, (TO DETERMINE TEMPERATURE VALUES). 

TAUT K» J j = EXP ( -E XP ( W ) *VWCOR ) . 

GO TO 1 



f ! 

' f ; l 

| ! 
H 


H ' ; 


a tv 
\ i 



c 

G 

C 

C 

C 

C 

C 




7 TAU(K«J) = 1. 

GO TD 1 

8 TAU ( K » vl ) =0. 

1 CONTINUE 

on b I = 1 ♦ M • 

h TAU ( I ♦ 1 ) = 1 . 

RETURN ■ . * 

END 

SUBROUTINE VI EWAN ( DAT 19 1>V WAN) 

DIMENSION DAT191!448) 

REAL *4 LEFT 

EQUIVALENCE ( OAT 19 1 ( 11) , DOWN ) , < DAT 1 9 1 ( 12) , LEFT) , (DAT 191 ( 13) ♦ 
1 UP) , ( DA T 1 9 1 ( 14 ) tRIGHT) 


20 


FOUIVALENCING WAS PERFORMED HERE MERELY AS A DOCUMENTATION 
OF THE ORDER IN WHICH THE POINTING ANGLES ARE RECORDED 


DIMENSION THETA! 2) 

DATA CNDGRD / .0174533 / 
DATA CNRDDG / 57.29578 / 


L X = 1 

THETA! 1 ) =0 . 

THETA ( 2 ) =0 . 

DO 10 L = 1 1 ♦ 1 4 

I F ( DAT 1 9 1 ! L ) .ED. 0.) GO TO 10 
THETA! LX ) =DAT 191! L ) 

L X = L X+ 1 

l F ( LX . EO . 2 ) GO TO 20 
10 CONTINUE 


CONTINUE • 

IF! (THETA(l) .EO . 90. ) .OR. ( THETA (2 ) . EQ . 90. ) ) GO TO 3 0 

ANG1=THETA( 1 )*CNDGRD 
ANG2=THETA( 2 ) *CNDGRD 
TA1-TAN! ANG1 ) 

TA2=TAN( ANG2 ) 

TA1S0=TA1*TA1 
TA2S0=TA?*TA2 
SUM-TA1SQ + TA2S0 
ARG=SORT< SUM) 

VWANR=AT AN ( ARG) 

VWAN=VWANR*CNRDDG 

return ■' ; : : ' r 

30 CONTINUE ' : . c. -r 
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. VWAM=90. 

■RETURN 

SUBROUTINE WRNCLD ( XL AM, XI . T1 , RH20 , IJTOT A L , TS , D AT 1 91 » IDT 191, 

1 VI EWAN, ZEROVL ItV/TT' 

THIS SUBROUTINE WAS WRITTEN BY M.MACK OF CSC FO* TASK °?STS F 

MAGNETIC^ TAPES FOR FURTHER SUBSEQUENT ANALYSIS PROG R A MM IN G . 

IT AL SO UTILIZES THE WOLF PLOT PACKAGE 10 DISPLAY VALUES ON THE 

CALCOMP OR SC4020. 

D.1 MENS I ON XL AM I 28 ) , X I ( 28 ) , T 1 ( 99 ) , RH2Q I 99) , OAT 191 < 448 ) , 

1 OUTARI ?13) , lOUTARi 213) 

INTEGER-? I DT 19 1 ( 896 ) > / t ' 

i nr;i r al^i ploton( 100*43) , . . 

EQUIVALENCE'! OUTARI 1) , IOUTAR(l) ) , ( P L 0 T 0 N ( 1,1 ) , P L T 1 ( 1,1 t 
1 ( PLOT ON ( 1 ,23 ) , P L T 2 ( 1,1)) 

LOGICAL*! PLTK 100,221 /128*' ' 

I 


• N ' , ' 0 ' , ' 


' , ' C • ♦ ' L • , 


1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 
C 
0 
F 
F 


• of , m* , * n • , ' 

• E ' , ' N ' » ' S ' » * ' 


• S • , ' p ' , ' E ' , ' C ' , 'TV 


•R 


• D • 


'0 ' , ' 


, 9 : 


•H' , ' E »', 'L' , 'T' , 'E* , 'R' , ' 

• T 1 , ' U ' , ' R ' , 8 E 1 , ' 

• . t t • ) • . • : ' , 5* ' 0 ' , 5* ' 

• • , • A 
• : ' ,5* 

108 *' 


• , • T ' , 
'O' , ' E ' , 
• ,'P' , 'O' , 


, ' M ' , 


' G ' , ' L 


, ' E • , ' S ' , ' 


• 0 5 5 


•O' , ' I, '. , 5 : 


i N 1 


, ' A* , 'D' , ' I ' ,: ' R • 


' O' , 

f 


, 

I I 


' E 
•G 
•I 

' ( 


s', * ' t ' s 

'O', 232 * ' ' , 'S' , 

, ' E ' , ' R ' , ' A 


'N • 


•;e ' 


• T" , ' 0 ' , ' T ' , ' A ' , ' L ' , ' ' , ' W ' , ' A ' , 


•PI* , *0' , 'R ' , ' 


• , • M ' , ' A ' , ' S' , ' S' , ' ' 


• , 'O' , * F * , ' 


• T 1 , • E ' . , 1 M ' , ' P * , *; E * 


' R » j, * A * , * T' 


•U 


' , 200 *' ' , 200 *' 


, ' H • , 

„ *E» , ' S' ,242*' ' 


' , ' M ' 

,'P' 

• , ' . ' 

, ' ' 

' , » M ' 

, ' T ', 

• , ' D ' 

, ' E ' 

•A ' , ' 

N ' , ' 

' , ' I ' 

, * E ' 


, ' ) ' 

' , ' E ' 

, »R ' 

• , 15 * 

•O', 

• ,» L ' 

, ' S ' 

)• , 'R' 

, * E ' 

' , 20 C 

i* • • 

' U • , ' 

M ' , ' 


, » I ' , ' N ' » ' G ' » 

I 'I 


, ' G ■ , 

O' , ' 


' , ' ) ' , 


' , 5 * * 0 ' , 

, . •!■',' A' , 

tyi'i • • D ' , ' E ' , ' G ' , ' . ' , '.) ! » ' : ' , 5 * ' 0 ' , 3 * ' 
• T ' , ' E ' , ' R ' , *, ' , ' V ' , ' A ' , 
3*'. ' »• ' N ' , ' 0 ' , 


i ,i L ' I, ' E ' , ' V ' , ' E .'Vi 1 L ' , 'S' , ' J ' , 5 * '0 ' , 245 * ' 

’ L ' ... , • A ' , ' L ' , 


' , » V ' 


200 * 


I ' 


, 200 5 


, ' D ' , ' I ' , ' T ' , 

I 


, 200 *' 


■ 200 


• U • , ' E ' , ’ S ' , 241 *' 

? 00 *' •/ 

LOGICAL*! PLT 2 I 1 00 , 211 / 243 * ' 

1 • • , • V • , ' A ' « ' 

2 200 *' ' , 200 * ' 

LOGICAL ZEROVL 

LOG l C A L * 1 OKAY! 1 00 ) / 400 * • ' / 

"LOGICAL*! PROBLMI 100 , 2 ) / 39 -' ' . 

! , Tv-mi , • U ' , ' M ' , ' I • , * 0 * , ' I ' , ' T ' , ' Y ' , ' ' * ' V ' * ' A ' , ' L ' , U r E , 

5 KijU .3 8* ' * • ' T I - • P • - • M » »"• 


•Y ' , 
» . 


• ,200*' ',200*' ',200*' ' / 


• I ' , ' G • , ' N ' , ' 0 ' , ' R ' , ' E ' , 


IBI.tFli.IR' 


* A • . I T* - • IM . • R • 


2 • E • , * S ' , • ' , *D ' . • fi • » Wj . ' I ' , 'V ' , ' E ' , ' l) ' . ' * , 'O' , ' S ' t ' I ' * ' N 1 t 

3 ' G ' . ' • . ' F ' , ' I • , ' R ' , ' S ' . ' T * ♦ ' , ' G * r ' U ' , ' E ' , ' S' . ' S' , ' • » ' H ' , 

4 ' U ' « ' M ' * ' l ' . ' D ' » ' I ' . ' T ' » ' Y ' » ' ' * • D ' f * I ' , *S • , .' T • * ' K ' , • I ' r ' B ' » 

5 'U» , ' T ' . ' I ' , » 0 ' » ' N ' « ' • , ' B ' * ' E ' . • C ' . ' A ' , ' II * , • S • , * E ' » ' ' , ' 0 ' » 

b • F ' . ' ' , ' 7 ' , ' E ' . ' R ' » ' O • . ' ' . ' R • ♦ • A ' » ' D ' . ' I ' » • A ' » ' N • , ' C ' ♦ ' E ' ♦ 

7 'S'.' ! ' .7*' ' / 


DATA NUNES/ 43/ 
DATA XO /. 2/ 

DATA VTOPSZ/ 8.0/ 
DATA NLEVEL / 99 / 


DEBUG INFORMATION 


DO 10 L=1 .6 
I OUT AR ( L ) = I DT 19 1 ( L ) 
OUTAR ( 7 ) =TS 
OIJTAR ( 8 ) =D AT 19 1 ( 1 1 ) 
OUTAR ( 9 ) = DAT 1 9 1 ( 12 ) 
OUT AR ( 10 )=DAT191( 13 ) 
OUTAR ( 11 ) =DAT 191 ( 14) 
OUTAR ( 12) -V I EWAN 
OUTAR ( 13 ) =UTOTAL 
I OUTAR ( 14) =NLEVEL 
1=0 

DO 20 LR=1 5, 113 
1 = 1 + 1 

LB 1 =LB+ 99 
OUTAR (LR)=T1( I ) 

OUTAR ( L H 1 ) = R H2 0 (I ) 
CONTINUE 


I OUTAR (2 13) =1 

1 F ( ZEROVL ) I OUT AR ( 2 1 3 ) =0 

DO 25 LD=l . 100 

PLOT ON ( LD.39)=0KAY( LD) 

PLOTONC LD.41 )=OKAY( LD) 

IF ( ZEROVI. ) . PLOT ON ( LD . 39 ) = PROBLM( LD» 1 ) 

I F ( 7 EROVL ) PLOTONC LD.41 ) =PRORLM ( LD . 2 ) 

25 CONTI NUE 4 : --v; AT v ■ ^ -/A ;! 

NOTE - I OUT ARC 2 13 ) = 1 MEANS MIXING RATI OS (HUMID I TY VALUES) 

WERE PROPERLY CALCULATED 
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. I OUT AR ( 2 13 ) =0 MEANS HUMIDITY VALUES SHOULD BE IGNORED. 

THE TEMPERATURE FIELD WAS DERIVED USING 
FIRST GUESS HUMIDITY DISTRIBUTION 
BECAUSE OF ZERO RADIANCES. 

FIRST, OUTPUT TAPE IS WRITTEN 

WRITE! I O') OUTAR 

NEXT, PRINTER OUTPUT IS CREATED 

WRITE! 9, 2000 ) ( I OUTAR! I ) , 1 = 1,6) , (OUTAR < J ) , J = 7, 13), IOUTAR! 14 ) , 

1 ( OUTAR ( vl) , v) = 1 5 , 2 13 ) , ( PLOTON! I ,39), 1 = 1, TOO ) , ( PLOT ON (1,41), 

1 1 = 1 , 100 ) " 

2000 FORMAT! 1H1 , 45X , 'NO CLOUD SPECTRUM SENSED S 3 1 3 , IX, 3 137/ , IX , 2XfcT 

1 'SHELTER TEMPERATURE (DEC. AHS. ) : ‘ ,F5.1,3X, 'POINTING ANGLES' , 

2 ' ( OEG.lt* , F 5 . 1 * ' , ' , F 5 . 1 , ' » ' , F 5 • 1 » • AND ',F5.1,2X, 'NADIR VIEW , 

3 ' ANGLE ( DEG. ): ' ,F5.1/,26X, 'TOTAL WATER VAPOR MASS : ' , E 1 5 . 7 , 25X , 

4 'NO. OF LEVELS: ', 15//, 5BX, ' TEMPERATURE VALUES'//, 9! IX, 

5 10 I F 8 . 3 , 5 X ) / ) , 1 X , 9 ( F 8 . 3 , 5 X ) / ,//, IX, 59X, ' HUM IDITY VALU ES • //, 

6 9 ( 1 X , 10! F8 . 5 , 5X ) / ) , IX , 9 ( FB . 5 , 5X ) / / , IX ♦ 62 X , ' ZEROVL = ' , I 2/ , 10X , 

7 IX, 100A1/, 11X, 100A1// ) • 

NOW OUTPUT IS DISPLAYED BY WOLF ON CALCOMP OR SC4020 


CALL S A MS I Z 1 1 ) 

C 

K = 51 

DO 30 L = 1 ,6 
K = K + 3 

I F ( L . E 0 . 4 ) K = K + 1 

CALL EDIT! IOUTAR! L) , • 13/' , P LOTON ( K , 2 ) , N , 1 B L ) 

30 CONTINUE 

CALL EDIT! OUTAR ( 7 ) , ' F5 .1/ ' ,P LOTON ( 37, 5) , N, IBL) 
CALL EDI T ( OUTAR ( B ) , ' F5. 1/ ' , P LOTON (70, 5 ) ,N, IBL ) 
CALL ED IT! OUT AR ( 9 ) , ' F 5 . 1 / ' , P LOTON ( 76 , 5 ) , N , IBL ) 
CALL EDIT (OUTAR! 10), • F5 . 1 / ' VP LOTON ( 82 , 5 ) , N, I BL ) 
CALL EDIT! QUTAR! 11 ) , • F5. 1/' , PLOTON ( 92 ♦ 5 ) , N, IBL) 
CALL EDIT! OUTAR ( 12), • F5 . 1 /', P LOTON ( 29, 7), N, IBL) 
CALL EDIT! OUTAR! 13) , • E 1 5 . 7 / ' , P LOTON ( 60 , t ) , M, IBL) 
CALL EDIT ( IOUTAR ( 14) , • 15/' , PLOTON! 92,7 ),N, 1B|. ) 


C 

C 


l WILL BE TEMPERATURES FIRST LIME 
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.1 = 1 1 
M=14 

on 40 K=l ,11 
1 = 1 + 1 
J = -H 

on 40 1 = 1,9 

j-.i+n i' 

M=M+1 

1 F < M . EO . 1141 GO TO 40 

CALL EP1T( QUTAR(M) , • F B , 3 / ' , P LD TON ( J , 1 ),N,IBL) 
40 CONTINUE 

l HERE WILL BE HUMIDITY'S LINE 
1 = 26 

M = 1 1 3 ' v 

DO 50 K = 1 ,11 
1 = 1+1 1 
J = -B 

00 50 1=1,9 
J=J+11 

M = M + 1 : • ; 

IFIM.EO. 213) GO TO 50 

. CALL EDIT! OUT AR ( M ) * • F B . 5 / • * PLOTON ( J , I ) ,N, IBL ) 
50 CONTINUE ..." 


STEP=( YTOPSZ -1. )/(NLlNES+2) 

YO=YTOPSZ-2.5*STEP 
DO 60 ML 1NE = 1, NUNES 
YO=YO- STE P 

CALL HORL I N ( PLOT ONI l.NLINE ) , 100, XO, YO, 100,0) 

60 CONTINUE 

CALL FRMADV 

RETURN 

END 

BLOCK DATA 

MOTE - THE FOLLOWING ARE THE COMMONS AMD THE SUBROUTINES USING 
THEM 

CHA 'J ESTH20,ESTLSO,NCL0UD 
C 0 2 B L 0 A T T H P , E S T H ? 0 1 N C L 0 U D , J K A N S C 

H20 BLDATTHP , DT AUDU » ESTH2Q » ESTLSQ » GET GO, GET TO, NC LOUD » 

RAD, R ADH20, TRANSW 
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SHI.DT BLDATTHP,GET$HL 

IJTOT TRANS W 

XXX BLDATTHP » E STH20 ♦ ESTLSO, NCLOUD 

7. 1 1 BLDATTHP, ESTLSO 

CORRECTIONS TO ANY OF THE COMMONS MUST BE MADE IN ALL 
ROUTINES USING THEM 


COMMON /H?0/ TO( 99) , All 60) , A2 ( 39 ) , TALJ ( 28 , 100) ,H201(60) ,H2U2(60) 
1 H203I60) , H204 ( 60 ) , H205 ( 1?) 

A 1 (60 ) AND A 2 ( 39) ARE EQU 1 VALENT , STORAGE-W I SE , TO 00(99) 

IT WAS EASIER TO SET UP THE VALUES THIS WAY DUE TO THE 
OUTPUT SOURCE FROM WHICH IT WAS TAKEN. 


NOTE: H201(60), , H204 ( 60) ,H?05 ( 1 2 ) » STORAGE-WISE, 

WILL BE THE SAME AS EITHER WATER (28,9) OR €0(28), 
C1(28)»C2(28) ,C3( 28) ,C4( 28 ) » C 5 ( 28 ) , C6 ( 28 ) , C7 ( 28 ) , AND 
C8 ( 28 ) . AS INPUT FROM A DIFFERENT SOURCE, THIS DATA 
SET-UP WAS THE QUICKEST. 

COMMON /SHLDT / TSV AL < 100 ) , T I MES < 100 ) 


COMMON/XXX/ 

TS, PS, 

PT, DH, N, NL, 



MTOTAL, 

PC 99 ) , T 1 ( 

99 ) , 

HOTGRD 


XK VALUES, (USED AS TRANSMISSION CORRECTION FACTORS IN TRANSIN 
ENTRY TO TRANSC ) « ARE NOT EXACT. CURRENT VALUES SET HERE 
ARE TEMPORARY DAT A , ( UNALTERING ONES). THEY 

ARE "FUDGE FACTORS" DETERMINED FOR NIMBUS IRIS DATA BY 
I .REVAH BY COMPARING TEMPERATURES CALCULATED WITH THOSE 
AVAILABLE THRU RADI OSOND DATA. 


COMMON /C02 /T AIJC. (28, 100) .C02K60) ,C022(60) ,C023(60) , CO 24 ( 60) , 
£ C02S (12), XK ( 28 ) , XKMULT ( 28 ) 

AS WITH COMMON H20 ARRAYS, USE OF C02 1 ( 60 ) , C022 ( 60 ) , 

C023 ( 6D ) *CD2M 60, ANDC025 ( 1?) INSTEAD OF EITHER 
CARBON ( 28,9) OR CO ( 28 ) , C 1 ( 28 ) , C2 ( 28 ), C3 ( 28 ), 04(28 ), 

C5( 28 ) ,C6< 28) , C 7 ( 28) AND C8<28) MAKES NO DIFFERENCE 


O o O o O O o o o o O o O O O O o O o O0O0O0O0O Oo^O o O 


Tn STORAGE' ORDER. ( > 

COMMON/ / Z ?/X I 01 2? ) » PH 1 ( 22, 100 ) 

MOTE THAT • C • VALUES. (IN COMMON CO? AND, CALLED H?.0, IN COMMON 
H20), WILL RE SUPPLIED BY INTERPOLATION PROGRAM JNTERPCV. 

LOGICAL HOTGRD 

•N IS THE NO. OF BOUNDARIES OR LEVELS UNDER CONSIDERATION 

ML IS THE NUMBER OF LEVELS. OR LAYERS. ’ 

MTOTAL REFERS TO THE NUMBER OF WAVELENGTHS ASSOCIATED WITH 
TEMPERATURE CALCULATIONS. MH70 .( NOT REFERENCED HERE BUT FOUND 
IN SUBROUTINE NCLOIJD) .REFERS TO THOSE ASSOCIATED WITH HUMIDITY. 
NOTE THAT HUMIDITY VALUES WILL ACTUALLY BE GIVEN AS MIXING RATIOS 

DATA MTOTAL, M/22. 100/ • 

DATA NL/99/ 

PT IS A PRESSURE AT THE TOP OF THE ATMOSPHERE 
PS IS THE PRESSURE AT THE SURFACE 

DATA PS.PT/ 1013. , .05 / 


DATA XIO / 22*0. / 

DATA XK /2ft*0. / 

DATA XKMULT / 28*1. / 

DATA R /4.E-11/ 

R IS A DUMMY VALUE NOW. IT IS A DISPLACEMENT FOR 
THE ARRAY H BEFORE IT IS INVERTED BY MATINV. 

IT IS THE GAMMA VALUE IN DR. CONRATH'S PAPER. 


VALUES SET FOR TSVAL AND TIMES ARRAYS ARE DUMMYS - SINCE HOUSTON 
JSC VERIFIED THATS-191 DATA WAS INVALID FOR INVERSION 
PURPOSES t NO EXACT VALUES WERE SECURED. 

DATA TSVAL / 100*0./ 

DATA TIMES / 100*0./ 

THE FOLLOWING VALUES ARE ALSO NOT EXACT RUT ARE BEING 
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US FD TEMPORARILY FOR DEHIJG PURPOSES - VALUES OF TO A NO A1,A2, 
(00), AS WELL AS COEFFICIENTS ASSOCIATED WITH TEMPERATURE 
ARF VAL ID, ( AT SL EAST TO THE ACCURACY OF LINEAR INTERPOLATION 
ANYWAY), BUT HUMIDITY ASSOCIATED VALUES ARE NOT, 


DATA TS / 294. / 

DATA TO / 

X250 ,00 , ?3R • 8 l , 228 . 
X216, 00, 216. 00,21ft. 
X?17.04,219.09,2?l. 
X234. 26, 235.90, 237. 
X2 4 7. 55, 24?. 86,250. 
X 258 . 39 , 2 59 . 40 , 260 . 
X266.87.267.71 ,268. 
X274. 22.-274.97,27 5. 
X 2 80 .74, 281 .41 ,2 82. 
X286.34, 286.85, 287. 
X2 90. 68, 291. 05, 291. 

DATA A 1 / 

X 0.206523 7 E-02, 0. 
0 . 8 2 1 7 0 8 1 E -02, 0. 
0.3822062E-02 , 0. 
0. 3 5 93048 E-02 , 0. 
0*49635!25E-02 , 0. 
0.1 66131 IE-01, 0. 
0, 6605858 E- 01 ♦ 0. 
0 . 1 6 7 1 7 0 9 E 00, 0. 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


96,223.32 

00 ,216 .00 

14.223.22 

57. 239.23 
19,251.51 

40.261.37 

54.269.37 
72.276.46 
08,282.75 
36,287.88 
42,291.79 

227 0666E- 
6292060E- 
3686225E- 
367 1609E- 
5824268E- 
2 5 52 8:64 E- 


, 220 . 

,216. 

♦ 225. 
, 240. 

♦ 252. 
, 262. 
, 27 0 . 
,2 77 . 
,283. 
, 288. 
,29 2. 


89,218 

00,216 

32,227 

90,242 

84,254 

29,263 

20,271 

21,277 

41,284 

39,288 

16,292 


.98,217. 
.00,216. 
.43,229, 
.43,243. 
.16,255. 
.21,264. 
.03,271, 
.96,278. 
.08,284, 
.90,289. 
. 52,292 


81,216. 
00,216. 
41 , 231, 
71,244, 
37,256. 
12,265. 
,86,272. 
71,279. 
.75,285, 
41,289, 
.89,293 


81,216 

00,216 

03,232 

99,246 

38,257 

04,265 

,69,273 

41,280 

,32,285 

92,290 

,26,293 


. 00 , 
. 00 , 
.64, 
.27, 
.38, 
.96, 
.47, 
.08, 
.83, 
.31 , 
.63/ 


91452 


48 E — 


1 9 1 7 1 0 5 E 


0 . 2 9836.7 OE 

0. 

0. 

0. 

>• 

© .. 


43 046 89 E 
6068589E 
807435 5 E 
1 03 6 329 E 
1309029E 
177 7746 E 


0.^67 4 802E 00, 

0 • 3 9 1 0 2 7 5 E 00, 

0.5627 6 14E 00, 

0.7561 60 7E 00, 

0.9681 547E 00, 

0 . 1 2408 53 E 01, 

0.. 1641026E 01, 

DATA A2 / 

0.21 8 7 908 E 01, 0.2324629E 
0.28197i56E 01 , 0.2988816E 
0 . 349 5 9^98 E 01, 0.3665058E 
0.4403642E 01, 0.4661?|63E 
0.5434124E 01. 0.5691744E 
0.647 228 7 E 01 , 0.67 346 45 E 
0 . 7 5 2 1 7 1 9 E 0 1 , 0 . 7 7 8 4076 E 
0.R571150E 01 , 0. 8856753E 
0 .9726092 E 01, 0. 1001587E 


0.2 1 37730E-0 1 , 
0.46932 40 E-02 , 
0 . 3608 274E-02 , 
0.38701 39 E-02 , 
0.8353610E-02, 
0 . 379 32 59 E-0 1 ♦ 
0.116845 9 E 00, 
0.2162 50 IE 00, 
0,32925 39 E 00, 
(i). 47 4 56 64 E 00, 
0,6536 1:1 OE 00, 
0 * 8 5 8 71 03 E 00, 
0.1104504E 01, 
0.1 37 7203 E 01, 
0. 191446 7 E 01, 

0.2481 63 5E 01, 
0. 315 7 87 7 E 01, 
0. 3888401 E 01, 
0.4918883E 01, 
01, 0 . 59 49 365 E 01, 
01, 0.699 7004 E 01, 
01, 0 . 8046433E 01, 

01, 0 . 9 14653 3 E 01, 

02, 0. 1030 56.5E 02, 


01 , 
02 , 
02 ', 
02 . 
02 , 
01 , 
01 , 
00 , 
00 , 
00, 
00 , 
00 , 
01 , 
01 , 
01 , 

01, 
01 , 
01, 
01 , 


0. 13 1 4 9.0 5 E -01 , 
0.43 06 1,4 5 E-02, 
0.3565758E-02, 
0.4102785E-02, 
0. 12483 36 E-0 1 , 
0 . 5 0 3 3 6 5 4 E - 0 1 , 
0. 142 2 3^96 E 00, 
0.2407 8*97 E 00, 
0 . 360 1406E 00, 
0 .51 8663 9E 00, 
6. 70488 58E 00, 
0.9099852E 00, 
0 . 1 1 7 2 d| 79 E 01, 
0.1 5043,0 5E 01, 
0.2051188E 01/ 

0. 2650696E 01, 
0 • 33 2 693 8 E 01, 
0.4 14602 IE 01, 
0.51 76503E 01, 
0.6209929E 01, 
0.7 2 5936 IE 01, 
0. 8308792E 01, 
0. 943631 3E 01, 
0. 1 059543E 02 » 
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X 0.10KR521E 02, 0, 1 1 17499E 02 , 0. 1146477 E 02/ 

THE TH AND D 0 ( A l AND A?) VALUES* < TEMPERATURE AND MIXING 
RATID VALUES). ARE FDR MIDLATITUDE SUMMER. REPLACE WITH 
MIDLATITUDE WINTER. ( STORED IN ZHH JM. PATATO l N - 2ND TWO 
BLOCK DATA PROGRAMS - I.E. 3RD AND 4TH). 

REMEMBER AGAIN! ! ! ! ! 

' TRANSMISSION COEFFICIENTS IN H201.ETC. .AND C021.ETC. ARE 
MOT ACCURATE FOR HUM I D I TY (MIXING RATIO) RELATED WAVELENGTHS, 


DATA H201 , / 

X 0. 66 1643 5 £ 

' i 

00 J 

0.6661 

45 6 E 

00, 

0 . 6 84458 6 E 

00, 

0.6997 145 E 

00, 

X 

0. 7 2 639 46 E 

00, 

0. 7533 

21 2 E 

oo, 

0 . 7 8 6 1 1 9 8 E 

00, 

0. 8 189 184 E 

00, | 

X 

0.R466128E 

00, 

0.8737 

97 BE 

00, 

0 . 84982 3 1 E 

00, 

0. 8 13740 9 E 

00, | 

X 

0.787 58 ^4E 

00, 

0.7649 

48 4 E 

00, 

0. 80 2 3 340 E 

00, 

0. 8657542E 

00, 

X 

0 • 87 07 373 E 

00, 

0.8489 

100E 

00, 

0 . 8 537720E 

00, 

0.8699 7 7 BE 

00, , 

X 

0. 887 1 2 (50 E 

00, 

0. 9265 

140E 

00, 

0.340492 IE 

02, 

0.3351 137 E 

02, 

X 

0 « 3 2 9 7 3 j5 3 E 
0. 767 5? (67 E 

02, 

0 . 3 24-3 

568E 

02, 

Q . 31 897 86 E 

02, 

0.3 13600 2E 

02, 

X 

00, 

0.7809 

1 ROE 

00 , 

0.80 1961 IE 

00, 

0. 8291678E 

00, 

X 

0. 9 3 8893 9 E 

00, 

0.1037 

8 5 6 E 

0 1 , 

0 . 8 8 0 3 8 5 7 E 

00, 

0.7229148E 

00, 1 

X 

0. 70331 9 BE 

00, 

0. 6975 

116E 

00, 

0 . 696 5 562 E 

00, 

0. 6967494E 

oo, 1 

X 

0.7 59 533 5E 

00, 

0. 8444:96 2E 

00, 

0.786689 IE 

00, 

0. 666956 2E 

00 , 

X 

0.6637520E 

00, 

0. 7 1401 02 E 

00, 

0.8211963E 

00, 

0. 9525806E 

00, 

X 

0.9836 80 7 E 

00, 

0.8881040E 

00, 

-0. 16 53 192 E 

02, 

-0. 1625194E 

02, 

X 

-0.15971966 

02, ■ 

-0.15691 99 E 

02, 

-0. 1541201 E 

02, 

-0. 15 13203E 

02, 

X 

0.0 

* 

-0. 15 147 57 E 

00, 

-0 . 7 538998 E- 

-01 F 

-0. 1791380E- 

-01/ ; 

DATA H202 / 

X -0.1D61B47E 

00, • 

-0, 1872916E 

00, 

-0.9771723E- 

-01, 

-0. 8 142769E- 

-02, 

X 

0.0 

* 

0.0 



0.0 

♦ 

i 0.0 


X 

0.0 

* 

0.0 



0.0 

, 

0.0 


X 

0.0 

' * 

0.0 


, 

-0. 253629 5E- 

-01, 

-0. 6150642E- 

-01 , 

X 

-0.4337224E- 

-01 , 

0.0 


, 

-0. 2232638 E 

00, 

-0.2130252E 

00, 

X 

-0. 2027867E 

00, ■ 

-D. 1925482E 

00, 

-0. 1823096E 

00, 

-0. 17207 10E 

00, 

X 

0.4283 2 5 2E 

00, 

0 • 4306476 E 

00, 

0 • 4 10436 5 E 

00, 

0.406 2430E 

00, 

X 

0.4517888E 

oo. 

0.49534495 

00 , 

0. 49 149 73 E 

00, 

0.487 6497E, 

00 , 

X 

0 . 48 2 5824E 

00, 

0.477393 1 E 

GO, 

0.469447 5E 

00, 

0.4608496E 

00, i 

X 

0 .450821 6E 

00, 

0.440 2 87 OE 

00, 

0.41 7 7909 F 

00, 

; 0.3901 067 E 

00, 

X 

0.362 601 6E 

00. 

0.3351 7 89E 

00, 

0. 31 23992 E 

■ 

o 

c 

0.2915924E 

00, 

X 

0. 2839807E 

oo. 

0.29098 7 6E 

00, 

0.0 


■ 0 . 0 

, 

X 

0.0 

•• T-v; 

0.0; : 



0.0 

t 

. 0.0 


X 

-0 . 7394451 E- 

-01. 

0.0 



0.0 

. . * 

0. 551 67 79 E- 

-01, 

X 

0.32 7009 IE 

00, 

0.5 91 107 5 E 

*■ 

c 

o 

0.6 707 34 5E 

O 

o 

■* 

0. 75036 15E 

00 / 


DATA H ? 0 3 / 
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X 

0.71 R57>1 5 E 

00, 

0 

.675618 

5E 

00, 

0.6601 74 IE 

00, 

0.65 123 81E 

00 , 

X 

0. 67483995 

00, 

0.70997 15 E 

00, 

0.807 3348 E 

00, 

0,93169005 

00, 

X 

0 . 8 43 842 45 

00, 

o 

6 586 37 5 E 

Of), 

0.61 8108 3 5 

00, 

0 . 6 390684 E 

00, 

X 

0.63955965 

00 , 

0, 

,6863 53 8E 

00 , 

0 . 7 3 0 1 0 8 6 E 

or, 

: 0.7195 1625 

or, 

X 

0.70 8923 RE 

01, 

0 

.69833 14E 

01, 

0.6877 39 0 E 

01 , 

0.6771 46 5 E 

0 1 ♦ 

X 

0. 93323055 

00, 

0, 

798 2 8 52 E 

00, 

0 . 6 2 49 94 5 E 

00 , 

0.51343095 

00, 

X 

0.29143865 

00, 

0 

.0 


, 

0.0 


; o.o 

, 

X 

0. 1 3 09086 E 

01 , 

0 

2 74 9 1 04 E 

01 , 

0. 3067351 E 

01, 

0.31 2 00 98 E 

01, 

X 

0. 20001 03 E 

01 , 

0 

.46455 10E 

00, 

0. 1 24649 55 

01 , 

0 . 3033638E 

01 , 

X 

0.397 50 34E 

01 , 

0 

.3 544 889 E 

01 , 

0. 2 42 7858 E 

01 , 

0.84884455 

00, 

X 

0.9508496E 

00, 

0 

.308327 IE 

0 1 , 

0.1 128486E 

02, 

0. 11 14721 E 

02, 

X 

0. 11009 565 

02, 

0 

1087 19 IE 

02, 

0. 1 07 342 6 E 

02, 

0. 105966 IE 

02, 

X 

0.1554161E 

01, 

0 

. 1128922E 

or. 

0 .77623 7 2 E 

00, 

0.58944145 

00, 

X 

0. 3334140E 

00, 

0 

. 82 13717 E- 

•01 , 

-0.55954755- 

•01 , 

-0. 1 940468 E 

00, 

X -0.2738136E 
DATA H204 / 

00, 

-0 

.3477498E 

00, 

-0. 2 089 46 5 E 

00 , 

-0. 1979214E- 

-01/ 

X 

0.642 504 IE* 

-01, 

0 

. 1110436E 

00, 

0.2 868932 E- 

-01, 

1-0. 10968 19E 

00, 

X 

-0. 67501 90E- 

■01, 

0 

5751383E- 

•01 , 

0. 2586727 E 

00, 

0*49219945 

00 , 

X 

0.7342357E 

00, 

0 

. 1 2 5 6 8 6 6 E 

0 1, 

0.9335258E 

02, 

0.9198074E 

02, 

X 

0 * 9060892 E 

02, 

0 

8923708E 

02, 

0*87865255 

02, 

■j 0. 86493415 

02, 

X 

0. 2922273 E 

or. 

0 

.416 16 13E 

01, 

0 .56742905 

or, 

' 0.64949225 

01, 

X 

0. 8501526 E 

01 , 

0 

1038631 E 

02, 

0 . 9368804 E 

01, 

0. 8351295E 

or, 

X 

0 . 4684400E 

01, 

0 

. 7 5 2498 6 E 
. 5289037E 

00, 

-0 . 3 148904E 

00, 

1-0 . 70430895 

00, 

X 

0. 17R2732E 

01, 

0 

01, 

0 . 446 3647 E 

01, 

| 0.17593945 

01 , 

X 

0.1051890E 

01, 

0 

. 1260486 E 

01, 

0.1189320E 

01 , 

' 0.9992474E 

00, 

X 

0. 1380103E 

01, 

0 

.17210': 

?9E 

01, 

-0. 16 1141 8 E 

03, 

-0. 1.5 849 8 9E 

03 , 

X 

-0. 1558560E 

03, 

-0 

. 15321315 

03, 

-0.150 570 IE 

03, 

-0. 14792725 

0 3 , 

X 

0. 2965899E 

00, 

0 

. 445 3 7 96 E 

00, 

0.97 57605E 

00, 

! 0.1284554E 

01 , 

X 

0 • 1779 54 6 E 

01, 

0 

.22307 05 E 

01, 

0 . 1637 563 E 

01 , 

0. 10444 20 E 

01, 

X 

0.5618125E 

00, 

0 

. 9024912E- 

-01 , 

0. 66 8 409 9 E 

00, 

0. 1495018E 

01, 

X 0.19149R5E 
DATA H205 / 

0 1 , 

o 

. 2 190844E 

0 1 , 

.0. 1425R13E 

01, 

0. 2093058E 

00/ 

X 

-0 . 160 1657 E 

00, 

-0 

. 1410201E 

00, 

-0. 1352202E 

00, 

-0. 1350924E 

.00, 

X 

-0.82854995- 

-01 , 

0 

.0 


, 

-0.4846269E 

00, 

-0.47585945 

00 , 

X -0.467031RE 
DATA Cn?.l / 

00, 

-0 

.4582343E 

00, 

-0 . 449436$ E 

: , : L 1 

00, 

-0. 4406393E 

j 

00/ 

X 

0.117978PE 

01, 

0 

.63H6714E 

00, 

0. ,17849925 

00, 

0. 64298395 

-01 , 

X 

0.3965280E- 

-01, 

0 

. 1 127647 E- 

-01 , 

-0. 1059820E 

00, 

-0.22324055 

on,! 

X 

-0 .360 7101 E 

00, 

-0 

. 5002034E 

00, 

-0.68 53607 E 

00, 

-0. 8813258E 

GO, 1 

X 

-0. 1105533 E 

0 1 , 

-0 

. 1339744E 

01 , 

-0. 1601852E 

0 1 , 

-0 . 18 76060 E 

01 

X 

-io. 2 16400 IE 

01, 

-0 

.245824 IE 

01, 

-0. 2 2371 23 E 

01, 

-0. 1 7969605 

01, 

02, 

X 

-0. 1585274E 

01. 

-0 

. 2? 3 2044 E 

01 ,; 

-0.97 56708 E 

02, 

-0. 9605638 E 

X 

-0 .945 4-56 8 E 

02, 

-0 

. 9303497 E 

02, 

. -0.9152429E 

02, 

-0 • 900 1 35 8 E 

02, 

X 

-0.421 68 24E 

00, 

-0 

. 1. 366339 E 

00, 

0. 851 7232 E 

00, 

0. 12 1189 9 E 

01 , 

X 

0.593 4 94 2E 

00 , 

0 

* 1455 24 IE 

-01 , 

0 .37580655 

00, 

0 . 7 3 7 0 6 0 5 E 

00, 


F-40 




- - '- a ;r ... :t . - i- 


m. 


X 0.97999196 00, 0.11060956 01, 0.11845606 01, 0 . 1 2399156 0 1 , 

X 0.98523156 00. 0.6? 06 H 58 E 00., 0.59373756 00, 0, 7 13221 HE 00 , jj 

X 0.88074546 00, 0. 1069079E 01 , 0.10414546 01, 0.92182H5E 00. 

X 0.9285 4 56E 00, ' 0. 10??309E 01, 0.43042246 00, 0.43201666 00, 


X 

0.43361076 

00, 

! 0.43520496 

00, 

6. 43 6 7990 e 

00, 

0.43839326 

00, 

X 

0.78571 346 

00, 

0.80322326 

00 , 

0.95802456 

00, 

0. 10127086 

01/ 

DATA] CO? 2 / 


' i •' 

• 

: : ■ . 




X 

0.85752836 

00, 

0.70836946 

00, 

0 . 7026448 E 

00, 

0.69692036 

00, ! 

X 

0.694573 IE 

00, 

0.69676356 

00 , 

0.76452766 

00, 

0. 84H2848E 

00, 

X 

0.78304606 

00, 

0.66500966 

00, 

0.66386226 

00, 

0.71341546 

00, 

X 

0.81780816 

00, 

0.94736076 

00 

0.98384756 

00, 

0.9807 80 IE 

00, 

X 

0.8 977 43 76 

00, 

0.77499946 

00, 

0. 1608484E 

02, 

0. 1580 906 E 

02, 

X 

0. 15833286 

02, 

0.15257506 

02, 

0. 14981726 

02, 

0. 14705936 

02, 

X 

0.461 54R4E 

00, 

0.4429125E 

00, 

0.40162746 

00, 

0.3 76 295 IE 

00, 

X 

0.135114096 

00, 

0. 3 2 623 06 E 

00 ,' 

0.3071 3336 

00, 

0.2880359E 

00, 

X 

0.283703 IE 

00, 

0.2808466E 

00, 

0. 29002556 

00, 

0.30205306 

00, 

X 

0.29376766 

00, 

0.2 7 82 84 IE 

00, 

0. 28 2 3 358 E 

00, 

0.29486086 

00, 

X 

0 . 2852887E 

00, 

0.26557856 

00, 

0 . 247359 2 E 

00, 

0.22977326 

00, 

X 

0.208 8 3376 

00, 

0.1549294E 

00, 

0.62759136 

01, ; 

0.61806646 

01, 

X 

0.60854166 

01, 

0 . 5990 1676 

01, 

0.58949186 

01, 

0. 5 79 9668 E 

01 , 

X 

0. 15343616 

01, 

0.40163526 

01 , 

0.17634556 

01, 

0. 75182656 

o 

o 

X 

0 • 4456480E 

01, , 

0.8 0097 02E 

01 , 

0.79551316 

01, 

0. 7900559E 

01/ 


DATA CO? 3 7 


X 

0 . 737000 86 

01, 

0.6791849E 

01, 

0.67987266 

01, 

0.69440706 

01 i 

X 

0.67106886 

01, 

0.63431036 

01 , 

0.58552856 

01, 

0. 53 1531 9 E 

01, 

X 

0 .4825617E 

oi, ; 

0.435897 5E 

01, 

. 0.42592256 

01, 

0.43 1540 86 

01, 

X 

0. 3836330E 

01, 

0.28328086 

01 , 

0.4358382E 

02, 

0,42 86339E 

02 4 

X 

0 . 4 2 1 42 9 9 E 

02, 

0. 4 14225 8 E 

02 , 

0.40702166 

02, 

0.3 99817 5E 

02, 

X 

0.22823746 

01, 

0. 2334950E 

ox, 

0.17314416 

01 , 

0. 14306 196 

-p 

X 

0.16692156 

oi, ; 

0.18750076 

01, 

. 0.12992726 

01, i 

0.723537 4 E 

00, 

X 

0.R437567E 

00, 1 

0. 1 03 357 1 E 

01 , 

0. 96381 66 E 

00, ' 

0.83262606 

00, 

X 

0. 91175556 

00, 

0. 10654136 

01, 

0.7 2 64460 E 

00, 

0. 173 806 IE 

00, 

X 

0. 1 1068 87 E 

01 , 

0.27216066 

01, 

0.24531096 

01, 

0.13841 936 

01 , 

X 

0.14716586 

0 1 , i 

0. 19340516 

01, 

0.0 

; *. ; 

0.0 


X 

0.0 . 

♦ 

0.0 

♦ 

0.0 

♦ ' 

0.0 

t 

X 

0.63759516 

-01, 

0. 5 54 1275 E 

-01, 

0.648 5784E- 

-01, 

0.71203176- 

-01 , 

X 

0.701 3 506E- 

-01, 

0.69066466- 

-01 , 

0.67987266- 

-01, 

0 . 6690806E- 

-01, 

X 

1 0.64862376 

-01 , 

0.62720006 

o 

*4 

0.7 237 148 E 

-01, 

0.84814316 

-01/ 

DATA cn?4 / 








X 

' 0. 7 999 84 9 E 

-01, 

0.6906700E 

-01, 

! 0.5513 47 8 E 

r-H 

0 

1 

0.39901046 

-01, 

X 

0. 37940106- 

-01, 

0.4206865E- 

-01, 

1 0.4414662E- 

-oi, : 

0. 45353 1 IE- 

-01, 

X 

0.32707336 

-01, 

Q.6934974E 

-0 2, 

i 0.12235136 

00, 

0.12176676 

00, 

X 

0.12118236 

00, 

0. 12059776 

00, 

0.12001 326 

00, 

0. 119428 76 

00, 

X 

0.37362356 

00, 

0.12106186 

00, 

0.0 


-0.333 127 5 E 

-02, 

X 

-0. 19746266 

-01, 

-0.35923406- 

-01 , 

-0.464339 7 E- 

-01, 

-0. 56944546- 

-01, 


REPRODUCIBILlTy OF THE 

ORIGINAL PAGE IS POOR 
F-41 r ■ 


X 

X 

X 

X 

X 

X 

X 

X 

X 


-0.17267B2E 
- 0 » T8 5 4 5 2 2 E 
-0.22503956 
-0.253.4490E 
-0 .3637 j?28E 


00 , 
00 , 
00, 
00 , 
01 , 
00 , 
00 , 
00 , 
00 , 


- 0 . 2 9 8 y 3 6 2 E 
-0.15477945 
-0. 2857 M3 IE 
-0. 1757344E 
1-0. 35786 12E 


// 


-0. 29909 54E 
-0. 191 0863 E 
-0.397 59 28 E 
-0.7400153E 
DATA CO? 5 / 

X -0 .,1052 12 RE. 

X -0.6019962E 
X -0.170 52 18 E 
END 

EXEC LIMKOn, REGION. GO 


-0. 50 1 6 1 04 E 


00 , 
00 
00 ,' 
00 , 
01 , 
00 , 


-0. 1 02 1069E-0 1 , 


-0.24072 

-0.65417 


24 E 
06 E 


00 , 

00 , 

01 , 


-0. 1236123E 
-0. 50173266 
-0. 1 674943 E 


■350K 


00 , 
00 , | 

00 , 

00 * 

01, 


-0.2 7 8 1 8 2 6 E 00 , 
-0,1.5863846 00, 
^•0. 29 78 37 2 E 00, 
-0.3755959E 01, 
-0 . 3 51949 7 E 01, 
-0.4808 2 36 E 00, 
-0.26368456 00, 
-0. 44 2 2004 E 00, 
-0 • 44 2 5278 E 00, 

— 0 . 3262996E 00, 
-0. 176 5769 E 01, 
-0. 164 46 69 E 01, 


-0. 2 226342E .00, { 
-0. 17 74756E 00,] 
-0.2 891 9756 00. 
1-0.36 96 843 E 01, 
-0.346038 2 E : 01 . 
-0.39019306 00, 
-0. 5 17 1582E 00, 
-0.72 849 20E 00, 
-0. 1763222E 00/ 

-0,60731896 00, 
-0. 1735494E 01 , 
-0. 1614393E 01/ 


PRINTER 


MESSAGE UNIT ON 

NO-CLOUD QUALIFY IMG DATA 
THE NON- CLOUD, (CLEAR), 


GSFC FORM 


OF 


3-^191 DATA) 


//* UNIT 6 IS THE DEBUG AND GENERAL 
//* UNIT 9 CONTAINS THE LISTING OF THE 

//* UNIT 10 CONTAINS THE LISTING OF “ 

//* QUALIFYING DAT A- 1 T I,S A TAPE! 

//* UNIT 12 IS THE INPUT DATA TAPE, 

//LINK.SYSLIB DO DSN = SYS2 . WOL FP LOT , D I SP=SHR 
//GO , FT06F00 1 DD S Y SOUT = A , DC B= ( RECF M= VB A , LR EC L = 1 37 , BLKS I ZE = 7265 ) , 
// SPAC E= ( C YL , (10,2) ) 

//GO.FT09F001 DD SYSOUT = A , DC B= ( RECF M= VBA , LRECL= 1 37 , BLKS I Z E =7265 ) , 
/ / S P AC fcs ( C Y L , ( 4 , 1 ) ) .1 

//G0.FT10F001 DD DUMMY 

/ /GO , FT 1 2 FOOT OD UNIT = ( 2400-9, , DEFER ) , DCB= ( R EC FM = VB S , LRECL= 1796 , 
// BLKS I ZE = 30536, DEN = 3 ) . LABE L = ( , RLP ) , VO L = SER = DUMMY 
//GD.PLOTTAPE DD DUMMY . T 

//G.O . SYSUDUMP DD SYSOUT = A 

//GO. DAT A 5- DD « .tt> . . _ 

Y-292 . ■ ''T”; . . 1 ' v .. 

KINPt.T; ' 

PLOTER- • PRINT 
I SEC =40 , 1 END HR 
SEND 

// EXEC NOTIFY, MODE=ALL,MSG=» JOB IS COMPLETE* 


ITER ' , M0NTH = 9 ♦ IDAY=11, IYEAR = 73, I H 0 U R = 1 3 , M I N U T E = 1 0 ♦ 
)HR=13 ♦ I ENDM I = 10, I ENDSC=41 , 





U{ 


' ' ■ », upy OF 

sss— 

G-1 



o o o o o o o o o o o o o n o o 


SUBROUTINE BI.KDAT ( NTYPF * ARR4 , ARR8 « INTAR2, 1NTAR4, NOELEM, 
1 ARNAMF , FMT , 1 FMTSZ ) 


NTYPE- - 1=REAL*4 DATA IS IN ARR4 

2 = R E A L v R DATA IS IN ARRB \ . 

3= INTEGER*? OAT A IS IN INTAR? ! J 

4= INTEGER *4 DATA IS IN INTAR A 
NOELEM IS THE NUMBER OF ELEMENTS IN THE ARRAY 
ARNAME. (WHICH IS R E A L * H ) . IS THE EBCDIC 'NAME OF THE ARRAY, 

(FURT.RAN CONVENT I ONS : ONE TO SIX LETTERS BUT LEFT ADJUSTED) 
FMT IS THE DESIRED DATA FORMAT*. IN 

= EN. I 

DN. I 
FN. I 
AN 

IFMTSZ HAS THE VALUE N IN THE ABOVE EXAMPLES 


(I.E. IT IS THE 


IOF THE DESIRED FORMAT) 


LOG I CAL* 1 F M 1 ( 36) ,FM2( 32) ,FM3( 140),EM4( 136)., FT1( 80), 

1 FT2 ( 80) , FT3 ( 80) ,FT4( 80) : 1 ' 

REAL*4 ARR4 ( 1 ) , FORMS H 8 ) FORMS? ( 7 ) , F0RMS3( 35) , 

1 FOR MS 4 ( 34) , ARNMSR ( 100 ) , ARNMS I ( 100 ) , TYPES ( 12 ) , F0UT1 ( 20) , 

2 FOOT 2(20) ,F01JT3( 20) ,F0UT4( 20) , FMT1(2) 

RF AL*8 ARR8 ( 1 ), FMT, ARNAME , FMTU ...... ■ 


I NT F G E R *2 I N T A R 2 ( 1 ) 

INTEGER *4 I NT AR4 ( 1 ) , INDEX! 100 ) 


DATA 

FORMS 1 

/ 

i 

( 1 H 

1 f 

1 

, 6X , 

• , ' 3A4, 

' , 1 

(IX 


i 

♦ 

• A 8 , 

ii 

1 

y 

• ( 

I 

s 

I ' 

y 

1*6,* 

• ) ' , ' , 

i i 

) ) 

i 





/ 















DATA 

FORMS 2 

/ 




1 

( 6X , 

' , '3A4, 

' , ' 

( IX 


i 


' A8 , 

• t 

1 

y 

• ( 

1 

• , 

I ' 

y 

1 • 6 , • 

' ) ' , ' , 

r i 

) ) 

i 





/ 















DATA 

FORMS 3 

/ 

i 

( 1H 

* , 

• 

,5X , 

' , • • 'X ' 

, i 

, ' 





’ , V 



i 

, • 

t 

A8 

, ' 

y 

1 "M 


16 

, • 

' • , 

• ) , 

1 


• A 8 , ' ' ' 

, ' ( 

• i 

i 

I 

i 

t 

•6, • 

• ) 

1 

y 

• , 

i 

• / 

, ' 

y 

2 • ( 6X 


X' 


• , ' 

AH, 

1 

" , ' 

( " , I ' t 

'6, 

ii 

) 

l 

j 

i 


A • 

t 







3 • B , • 


' , 

16 

' , ' 

, ? 1 

) 


' ' , A8 • , 

' , • 

• ( 

• 

• 

1 

t 

• , 16 

, ' 


9 

i i 

) 

, * 

t • 

y 

4 1 , A 8 

, ' , ' " 

( ' 

' , 

' , ' 

16, 

1 

• * , • 


' A8 

, ' 

1 

1 

t 

i 

( " ♦ 

I • 

y 

1 

6, 

i 

' ) 

' , 


5 . .* , • • 

/)';•) 


• 

/ 




















DATA 

FOR MS 4 

/ 




1 

( 5X , 

• , " 'X • 

• i 

, ' 





' , ' 



1 

, ' 

y 

A8 

, ' 

y 

1 " • ( 


16 

, ' 

' ' , 

• ) , 

1 


' A8, • ' ' 


ii 


I 

1 


•6, • 

• ) 

i 

y 

' , 

i 

' / 

, ' 

y 

2 » ( 6X 


X ' 

• , 

• , »• 

A8 , 

1 


( • ' , I » , 

•6, 

t i 

) 

1 

f 

i 

, • ' , 

A 1 

* 







3 '8, • 


’, 

16 

• , • 

, • • 

) 


• • , A8 • , 

' , ' 

• ( 

• 

1 

i 

y 

' , 16 

, • 

y 

i 

i • 

) 

, ' 

i i 

y 

4 ' ,A8 

, 1 , »" 

( ' 

• , 

' , * 

16, 

1 

. . , . 

) , " , ' , 

• A 8 

, * 

l 

1 

t. 

t 

( ' * , 

I • 

y 

i 

6 , 

i 

' ) 

• , 



5 »,"/)•, * ) • / 


PAT A 

FDIJT1 

/ '* 

« 

14 1 * 1 

(AX, 

' , ' 

» 

• X ' 

' , 

, 

Nfv|( 

• , ' 

i , • 

1 • ♦ • ' 

, • • • , • 

)/) 

♦ 

V 1 • 

1 ♦ 

'AX 

* 

' , 

1 1 

X ' 

S', 

• N I ( 

• , 

2 ' 

' , ' 

i 

f 

• t: ' • f ' 

" , ' 

) , 


• , ' 



, ' 


i f ii/i 

3 ' 

) • / 













DATA 

FONT? 

/ ' 

( 

14 ' * ' 

( 5X j 

' , ' 

1 

' X' 

' , 

, 

NN ( 



1 ' , • • 

, ' ' ' , * 

) / ) 

* 

' , ' 

' , 

' 5 X 


' , 

1 1 

'X' 


' N I ( 

' , 

2 * 

' . ' 

i 

9 


it,. 

) t 


' , ' 


• •: 

, ' 

. T 

' , ' ' / ' 

3 • 

) ' / 













DATA 

FOUT3 

/ ' 

( 

KK 1 , • 

( AX , 

• , ' 

1 

•X' 

' , 

• , 1 

1 NN ( 

' , ' 

• , ' 

1 ' ♦ " 

, ! ' ' , ' 

)/■) 

9 

' , ' .6X 


i i 

X 

II 1 


, 

• , 1 

MI ( 

' » ' 

2 ' , ' ' 

t ' ' ' , ' 

) , 


' » * 

' , * 



• , ' 

, • 

' / 

ii i t i 

) 

• / 

DATA 

FOOT 4 

/ ' 

( 

KK' , ' 

( 5 X , 


1 

'X ' 


1 , ' 

■ NN ( 

' , ' 


1 • , ' ' 

, " ' , • 

)/) 

t 

* . , * , 5 X 

, ' , ' 

i i 

X 

II 1 


» 

' » ' 

Ml ( 

' , ' 

2 ' , » • 


) * 


» ' 




‘ » ' 

r ' 

'/< 

i i i t i 

) 

' / 


EQUIVALENCE < FORMS 1C 1) ,FMl( 1 ) ) , ( FORMS? ( 1 ) , FM2( 1 ) ) , 

1 ( FORMS 3 ( 1 ) i FM3 ( 1 ) ),(F0KKS4( 1 ) , FM4( 1 ) ) , 

2 (FQUTK 1) » FT 1 ( 1) ) , ( FOUT2( 1) ,FT2( 1 ) ) , ( F0UT3( 1) ,FT3( 1) ) , 

3 (FOOT A ( 1 ).FT4( 1) ) , ( FhT 1 ( 1 ) , FHTIJ ) 


DATA 

TYPES 

:: 

/ 'REAL 

I 



1 

, ' 


1 

, 'REAL 


, '*8 


, ' 



9 



1 

• INTE 

' , 'GER* 

! t 

•2 

1 


•INTE 

• 

t 

•GER’ 

Cl 

t 

•4 

1 


/ 








DATA ARNMSR / 


A 1 ' 



A 2 ' 


1 

A3 ' 


1 

A 4 



A 5 ' 


A 6 1 

9 


t\l ' 



1 . 

• A 8 

' , ' A9 


' A 1 0 



•All 



' A 12 


t 

' A13 



' A 14 


' A15 

1 


• A 1 6 


9 

2 

' A 17 

4, 'A 18 


•A 19 



' A20 



' A 2 1 


J 

' A22 



?A23 


' A24 

1 


' A 2 5 


9 

3 

•A26 

• , 'A 27 


' A2 8 



• 4 29 


J 

' A30 


». 

' 431 



• A32. 


• A33 

1 


•A3 4 


9 

4 

* A3‘5 

' i ' A 3 A 


' A3 7 



• A38 



•439 

1 

t 

• A40 



•A 41 | 


'A 42 

I 


' A 4 3 


9 

5 

* AAA 

' , > A 4 5" 


' 446 



• A47 



y A 48 


9 

' A49 



'A 50 | 


• A51 

1 


' A52 


9 

6 

• A5 3 

' , ' A 54 


' A 55 



• A56 



•A 57 


9 

' A58 



•A 59 | 


'A AO 

1 


» A61 


9 

7 

' A A 2 

' , 'A A3 


1 A 6 4 



• A 6 5 



•AAA 


9 

•A 67 



' A 68 | 


' AA9 

1 


' A70 


9 

a 

' A 7 1 

• . ' A 7 2 


' A 73 



• A 74 



' A75 


9 

• A76 



•A 77 


' A 78 

1 


1 A79 


9 

9 

' A80 

' . * A81 


' 48 2 



' A 8 3 



' A84 


f 

1 A 8 5 



' A 86 


'A3 7 

1 


•A 8 8 


9 

A 

• A89 

• , ' A 9 Q 


' A 9:1 

1, 

r 


' A92 



•A 93 


9 

' A94 



'495 i 


•A 96 

1 


'A 97 


9 

B 

' A98 

' , ' A99 


' A TOO 

' | 


| / 









; : : f 








DATA ARNMSI / 


11 ' 



1 2 ' 



13 ' 


1 

14 • 



15 " 


16 ' 

9 


17 ' 



1 

' 18 

• , ' 19 


'110 



'• I 1 1 



' 112 


9 

'113 



•114 


'115 



' 1 16 



2 

•117 

','118 


' I 19 



f 120 . 



'121 


9 

'122 



*123 


' 124 



•125 



3 

• I 2 A 

','127 


•128 



f 129 



• I 30 


9 

' 131 



'132 


•133 



• 134 



4 

• 135 

' , • I3A 


•137 



f 138 



' 139 


9 

' 140 



•141 


' 142 



' 143 



5 

•144 

' , • 145 


• I 46 



' 147 



• 148 


9 

'149 



' I 50 


•151 



•15 2 



A 

• 153 

' , ' 154 


' I 55 



' 156 



' I 57 


9 

' I 58 



» ] 59 ! 


' 160. 



•161 



7 

• 1 A? 

• . '163 


' 1 64 



' 1 65 



' I 66 


9 

•167 



•168 


*169 



' I 70 



8 

• I 71 

• , * 172 


• 173 



' 174 



' 175 


9 

'176 



• 177 


' 178 



•179 



9 

•180 

','181 


' r r 2 



•183 



' 184 


9 

•185 



• 186 


' I 87 



' 188 
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. Hi 


il! 


pi 




V, 


fete:,- 


iO 


U ' f: 


i 1 


A 

B 


• I fi9 

•198 


' 190 
* 199 


' , '191 


' , • 19? 
' I 100' / 


' ,>193 


' , ' 195 ' , • 19/3 • , • 197 • , 


G 

C 

C 


FORMATS 


2000 FORMAT ( 1H1 ,6X, • BLOCK DATA • ) 
2050 FORMAT (AX , 'BLOCK DATA') 

2100 F OR.MAT ( 1 H , 6 X ♦ 3 A4 , 1 X ♦ AH , • ( ' 
2150 FORMAT ( 6X , 3 A4 , 1 X . AH , • ( ' , [ft. 


2200 

2250 

2300 

2350 


FORMAT ( 1H , 5 X , 'X' , IX, AH, ' ( • 
FORMAT (-5X , 'X ' , IX, AH, • ( MI A , 
FORMAT (10 , A X , ' EOIJ ] VALENCE 
F 0 R H A T ( 6 X , ' E 0 U I VALE N C E 


,16, 
' ) ' ) 
,16, 
' ) ' ) 
' ) 

' ) 


) ' 
) ' 


2400 

FORMAT (6X, 

' X' , ' ( ' 

, AH, • ( • 

♦ 1 6, 

' ) , 

> , AR , 

Ml) ), ' 

, M ' , 

A 8 , • ( 

• ,16, 

1 

• ) , ' , AH , ' 

( 1 ) ) , ' ) 




; ' • >*r: 





2450 

FORMAT (5X, 

•X' , ' ( ' 

, AH, ' ( ' 

t I 6 t 

’ ) , 

' , A8 , 

Ml) ) , • 

, M • , 

AH , ' ( 

' , 16, 

1 

' ) , ' , AR « ' 

( 1 ) ) , • ) 









2500 

FORMAT ( 6X, 

' X M M ' 

, AH, ' ( • 

, 16, 

' ) , 

' ,AR, 

Ml) ) , • 

» 



1 

' ( • , A 8 , • ( 

',16,') 

, ' , AH. ' 

( 1 ) ) 

' ) 






2550 

FORMAT ( 5X, 

• X' , • ( ' 

, AH. « ( • 

,16, 

' ) , 

' , AH, 

Ml)),' 

, 



1 

• ( ' ,A8, ' ( 

',16, • ) 

X 

< 

( 1 ) ) 

» ) 






2600 

FORMAT ( 1H 

, 5X , 'X' 

, IX, • ( * 

,A8, 

' ( ' 

,16,' 

) » ' , A 8 , 

Ml)) 

' ) 


2650 

FORMATt 

5X , • X ' 

, 1 X , • ( ' 

,'A 8 , 

' ( ' 

, 16, ' 

) , ' ,A8, 

•(D) 

' ) 


2700 

FORMAT ( 1H 

,6X, 'DATA ' , AH 

,2X, 

• r 

) 





2750 

FORMAT! 6X , 

•DATA ' 

, A8.2X, 

•/' ) 








2800 

2850 


FORMAT ( 1H 
FORMAT! AX , 


, 6 X , ' END ' ) 
' END ' ) 


C 

C 

c 


SET INPUT FORMAT INTO WORK AREA EQU I VALENCED FORMAT SPACE 
FMTU=FMT 


C 

G 

C 

C 

C 

C 

C 


CALCULATE NO. ELEMENTS ON LINE, N00NLN.5 NO. OF L I NE S , NOL 1 N S : 

NO. OF ARRAYS WHICH ARE THE SAME LENGTH , NOARSM? TOTAL NO. OF 
ARRAYS, NOARRSINO. OF ELEMENTS IN EACH OF THE ARRAYS WHICH ARE 
OF THE SAME L ENGTH , NO I NE A ; AND NO. OF ELEMENTS IN THE LAST ARRAY, 
NOINLS 


N00NLN = 64/( I FMTS7. + 1 ) 

NOLI MS = NOEL EM /NOON LN 
ITST1=NOONLN*NOLI NS 
IF C ITST1.LT .NO EL EM ) NOL 1 N S = NOL I NS+ 1 
NO ARSM = NOL I NS / 1 5 »> 

NOARR S=NOAR SM . 

ITST2=15*N0ARSM r J--'C . 
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o o r> n o n O o r> -r> r> o 


! M IT ST? .LT.NOL IMS ) NO AkR S=NOARk S+ 1 
m n i im e a = m r i dni i- 

NO l ML S=( NOEL EH - ( NO AkSM*NU I NE A ) ' ) 

N 0 PA I R = M 1 1 A k S P / 2 

m n n d = n n a r s m - ? * m o p a i r 


NEXT. CALCULATE THE INDICES OF THE INPUT ARRAY FOR 
FOUI VALFNCING. 

in=-wniMEA+i 
DO 10 L=1 .NO APRS 
I D = T D + NO I NFA 
INDEX ( L ) = I0 
10 CONT I NILE 

NEXT, SET IJP INDICES FOR ARRAY TYPE PRINTOUT IN 
DIMENSIONING STATEMENT 


I F( NTYPE.EO. 1 > 11 = 1 
IF IN TYPE. EO. 1 ) T 2 =3 
I F< MTYPE .EO.? ) 11=4 


IF (NT Y PE 
IF ( NT Y PE 
IF (MTYPE 
I F( MTYPE 
IF (MTYPE 


EO;.?:) |? = 6 
E 0 . 3 ) I 1=7 
E 0 . 3 ) 12 = 9 
E 0*4 ) 11 = 10 

E 0 . 4 ) 12 = 1? 


WRITE (6.2000) .H,-.: 

WRITE (7. 2.050) ; . . ■ . 

WRITE (6.2100) ( TYPES ( I ) . 1=11.12) , ARNAME , NOE L EM 
WRITE! 7.2150 ) ( TYPES( I ), 1 = 1 1.12) . ARNAME . NOEL EM 


DEHUG DATA 

WRITE (9 . 1000 ) NOON LN, NO 1. 1 N S , NO AR SM , NOAKR S , NO I NE A , NO I NLS 
1 1 F MTS 7 .NOE LEM : 

1000 FORMAT ( 1H1 , 1 DEBUG DATA' / . IX , *NOONLN= • , I 5, 2.X, »NOL INS=’ . 

1 15, 2X, • N OARS M = ' , I 5 » 2 X » ' NOARR S= ' , I5.2X, ' N 0 1 N E A = ' , 15. 

2 2X , • NO I ML S = ' , I 5 , ?X , ' I FMTSZ= ' » I 5 , 2 X » 1 NOE L EM = ' ,15//) 
WRITE (9, 1050) F OR M S 1 , F 0 RM S , F OR MS 3 t F OR M S 4 

105 0 FORMAT ( 1 HO . 1 F OR M S A HR A Y S ' / ',1 X , HA 4 / , I X » 7 A 4 / , 1 X , 3 2 A 4 / , 1 X 
1 3 A4/ , IX , 32 A A/ , 1 X , ? A4/ / » IX, ' FOOT ARRAYS'/) 

WR IT E ( 9.1100) FONT 1 .FOOT?. FOOT 3 » FOOT 4 
1100 FORMAT ( 1H0.20A4/, 1X.20A4/. IX , 20A4/ , 1*X ♦ 20A4/ ) 

C ■ . . • 
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O pi 


Af) TO SECTION FOR ‘TYPE' OF DATA. 


go to 1 1 oo , i on . ?oo , ?oo ) , ntype 

100 CONTINUE 

NM-NOONLN 

NT =N0 1 ME A-NOONI. N« 1 A- -l 

KK=NO INI.S/M OfJN'L N 

NIT=NOONLN*KK 

IF ( M IT.E 0 .MO I M LS )KK=KK-1 

I FIN F T . EO. NO I NI.S ) M IT=NOONLNvKK 


NL=NO I NLS-N IT-1 
IF ( NL .IT . 0 ) N L = 0 
CALL I NCORE ( MN» F 

T 1 

n. 

3) , 

19, 

1, 

2, 

! 1 

i o 

CALL 

INC ORE ( N 1 ♦ F 

T 1 

( 4 

5 ) , 

19, 

1 , 

2, 

0 

CALL 

I NCORE ( KK ♦ F 

T3i 

( 

3 ) , 19, 

1, 

2, 

0 

CALL 

1 NCORE (NN, F 

T2 

( 1 

3 ) , 

19', 

1, 

2, 

b 

CALL 

INCORE (MI , F 

T 2 

( 4 

5) , 

19, 

1, 

2 ,| 

0 

CALL 

I NCORE ( KK . F 

■T4 

( 

3 ) , 

19, 

1 , 

?,; 

;° 

CALL 

I NCORE ( NN. F 

T3 ( 13) . 

19, 

It 

2 , 

b 

CALL 

I NCORE ( ML ♦ FT3 ( 45 ) t 

19, 

1 , 

2, 

0 

CALL 

I NCORE (NN,FT4( 13 ) . 

19, 

1, 

2, 

0 


CALL INC0RE(NL,FT4<45) , 19. 1, 2, 0, 

FOUT 1 1 5 ) =FMT 1 ( 1 ) 

FOUT 1 ( 6 ) = FMT 1 ( 2 ) 

FOUT 1 ( 13 ) = FMT1 I 1 ) 

FOUT 1 ( 1 4 ) =FMT 1 ( ? ) 

FOOT l U 7 ) = FMT1( 1) 

FOUT 1(18) =FMT 1 1 2 ) 

FOUT 2(5) =FMt 1 ( 1 ) 

FOUT? (A ) = FMT 1 ( 2 ) 

F0UT2 ( 13 )-FMTl ( 1 ) 

F0UT2U 14) =FM11 ( ? ) 

FOUT? ( 17) = FMT 1 ( 1 1- : 

F OUT 2 ( 1R)=FMT1(2) 

FOUT 3 ( 5 ) =FMT 1 ( 1 ) 

F0UT3 ( A ) =FMT 1 ( 2 ) 

FOUT 3 ( 13 )=FMT1 ( 1 ) 

FOUT 3 (14) =FMT1 (?) ' 

FOOT 3 ( 17 )=FHT1 ( 1 ) 

F0UT3 ( 1« ) =FMT 1 ( 2 ) 

FOUT 4 ( 5 ) =FMT 1 ( 1 ) '• 

FOUT 4 ( A ) = FMT 1 ( ? ) 

F0UT4( 13 )=FMT1( 1) 

F0UT4( 14 ) =FNT 1 ( 2 ) 


0 ) 
0 ) 
0 ) 
0 ) 
0 ) 
0 ) 
0 ) 
0 ) 
0 ) 
0 ) 




u 


c 



F0UT4 ( 1 7 ) = FMT 1 ( 1) 

FOIIT 4! 1H ) =FMT 1(2) 

OF BUG 

WRITE!- W ♦ 1100 ) FOOT 1 ♦ FOIIT 2 • Ft) UT3, FOOT 4 


I F ( NtJ A K K $ . EO. I ) GO TO 1 6 0 

WRITE (6 ♦FORMS 1 ) (TYPES! 1 ), 1 — II ,1 2 ), ARNMSR! 1) ♦KOI M E A 
WRITE! 7, F0RMS2 ) (TYPES! I ) ♦ I = J 1 ♦ I 2 ) ,ARMM$R{ 1 ) » MO TWEA 
I F( NOARSM. GT . 1 ) WRIT E ( 6 ♦ FORM S3 ) ( ARNMSR! 1 1 , MO I WE A, 1=2 , NOARSM ) 
IFIMOARSM.GT.i) WRITE! 7YF0RMS4) ( ARNMSR (I ) , NOTNEA , I=2,N0Ak$M> 

WR ! T E ( A « 2200 ) • ARNMSR ( MQARR S ) » MO I NLS 
WRITE! 7 42250) ARNMSR ! NOARRS) tNOlNLS 
WRITE (6.2300) 

WRITE! 7.2350) : 

mow=moarsm ■ 

IF ( MODO ♦ N E • 0 ) NOW=NOW- 1 

I F ( MOW. GT. 0 ) WR ITE (6, 2400) (ARNAME ♦ I NDEX ( I ) , ARNMSR! lit I=1,N0W ) 
I FI NOW. GT .0 ) WRITE (7. 2450) ( ARNAME ♦ I NO EX ( I ) » ARNMSR ! I ) ,1 = 1, NOW ) 
IF! MOOD. ME . 0 ) WR T,TE ( 6 ♦ 2500 ) ARNAME , INDEX! NOARSM ) ♦ ARNMSR! NOARSM ) ♦ 
1 ARNAME ♦ I NDEX ( MtTARRS ) ♦ (IRNMSR { NOARRS ) T ; ' 

IF(MODO.NE.O) WR I TE ( 7,2550) ARNAME, I NDEX ( NOARSM) , ARNMSR ( NOARSM ) , 
I ARNAME. I NDEX (NOARRS) ♦ARNMSR! NOARRS 1 ) 

I F< NDDD . EO . 0 ) WR ITE ( 6 , 2600 ) ARNAME , I NDEX ( NOARRS ) ♦ ARNMSR ( NOARRS ) 




IF'TNODD.EO.O) WRI TE! 7 , 2650 ) ARNAME , I NDEX ( NOARRS ), ARNMSR (NOARRS ) 
C 

C HERE. REAL*4 AND REALMS DIFFER 

C 

GO TD ( 120 ♦•140) ♦NTYPE 
120 CONTINUE 

MOUSE 1=-N 01 NEA + 1 
DO 130 1=1, NOARSM 
WR ITE! 6,2700) ARNMSR! L ) 

WRITE! 7,2750) ARNMSR! I.) 

MOUSE 1=N0USE 1 + N0 1 ME A , r - 

MOIJ S E2 = NOU S E 1 +N0 l M E A - 1 

WR ITE ( 6 ♦ F OUT 1 ) ( ARR4 ( K ) , K= NOUSE 1 ♦ MOUSE 2 ) 

WRITE! 7 ♦ F 0 U T 2 ) ( ARR4! K ) ♦ K = NOUS E 1 , NOUSE 2 ) 

. 130 CONTINUE ' ♦■ • 

WRITE (6, 2700) ARM M S R ! N 0 A RK S ) 

W R I T E < 7 ,2750) ARN M SR (NOARRS) 

NOUS El =NOU SE 1 +NO TNE A 



sssssw* 



o o o o o n o 


WR I TE ( A . F0UT3 ) < ARR4( L ) * L-NOUSF 1 , NOELEM ) 
W RITE! 7 » FOOT 4 ) ( AR R4 ( L ) , 1. = NOU S E 1 NO E L EM ) 
GO TO 300 
140 CONTINUE 

MOUSE 1=-N0I NEA+l 
Of) 150 L =1 « NOARSM 
WRITE! 6.2700 ) ARNMSR ( L ) 

WR 1 T E ( 7,2750 ) ARNMSR! L) 

NOUS F l “NOUS F 1 +N0 INF A 
MnusE?=NnusFi+Nr)iNt ; A-i 

WRITE! A, FOOT. I ) ( ARK B ( K ) * K=M0USE1 » MOUSE 2 ) 
WR I TE ( 7 .FOOT 2 ) < A R R H ( K ) ♦ K=N01JSE 1 » NOUSER ) 
150 CONTINUE r i 

WRI TE ( 6 i ZTOCh ARNMSR ( NOARRS ) 

WRITE! 7, 1 2-750 ) ARNMSR ( NOARRS ) 

MOUSE 1 -MOUSE 1+NOTNF A 

WRITE! A.F0UT3 ) ( ARRB ( L ) , L = NOUSE 1 ♦ NOE LEM ) 
WRITE (7 , F0UT4) ( ARRB! L ) , l. = NOUSE 1 , NOEL EM ) 
GO TO 300 



ONE ARRAY! 


160 CONTINUE 

WRITE! 6,2700) ARNAME 
WRITE! 7,2750) ARNAME 
GO TO ( 170,180 ) .NTYPE 
170 CONTINUE 

■ WRITE ( 6 , F0UT3 ) ( ARR4 ( L) ,L=1 , NO EL EM ) 

- . WRITE! 7, F0UT4) ( ARR4 ( L ) , L= 1 , NOE LEM ) 

GO TO 300 
180 CONTINUE 

WRITE (6 , FOUT 3 ) < ARRB! L) » L= 1 ,NOELEM ) 

WR l T E ! 7 , F 0UT4 ) ( ARR8 ( L ) , L* 1 » NOE LEM ) 
GO TO 300 

INTEGER Data PROCESSED HERE 



200 CONTINUE 

NN=NOONLN 

N I = N 0 1 N E A - N 0 0 N L N * 1 4 - 1 
KK=NO I NL S/NOONLN 
MI T=NnONLN*KK 

• IF(NIT.EO.NOINLS) KK=KK-1 

I F ( N I T . EG * NO I fvL S ) N I T=NOONLN*KK 


Nt=NniNLS-NlT-l 

IF(Nt..LT.O)NL=Q 


CALI. 

INCURS ( MtUFTl ( 13 ) . 10, 

1 , 

2, 

0, 

O') 

CALL 

I NCORE ( Mi , FT 1( 43 ) • 19, 

1, 

?t 

o , r 

0 ) 

CAU 

INCUR E(KK,FT3( 3), 19, 

1 1 

2 1 

0, 

0) 

CAU. 

1 NCORE ( NN, FT? ( 13 ) , 19, 

1 f 

2 1 

Of 

.0 ) 

CALL 

INCORE (Nl, FT2(43) ", 19, 

1 » 

2 , 

0, 

0) 

CALI 

1 NCORE ( KK « FT4( 3), 19, 

It 

2 , 

0, 

0) 

call 

INC ORE < NN ♦ FT3 ( 13), 19, 

1, 

2 1 

Of 

0) 

CALL 

INCORE (NL,FT3< 45), 19, 

i* 

2, 

0, 

0 ) 

CALL 

I NCORE ( NN , FT4< 13 ) , 19, 

K 

2, 

0, 

0) 

CALL 

I NC 0 R E ( N L , F T 4 ( 4 5 ) , 19, 

1, 

2, 

Of 

0) 


FOUTK 5 ) = 1 
FOUTK A) *l 
FOUTK 13 ) ■ 
FOUT1 ( 14) 
FOUTK 17 ) 
FOUT 1 ( 1H ) 
FOUT2 ( 5 ) = 1 
FOUT? ( 6 ) = 
FOUT 2 ( 13 ) 
FOUT? ( 14) 
FOUT 2 ( 17 ) 
FOUT 2 ( 18) 
FOUT 3 ( 5 ) = 
FOUT3 ( 6 ) = 
FOUT 3 ( 13 ) 
F0UT3U4) 
FOUT 3 ( 17 ) 
FOUT3 ( 18 ) 
FOUT 4 ( 5 ) = 
F0UT4(6)= 
FOUT 4 ( 13 ) 
FOUT41 14) 
FOUT 4 ( 1 7 ) 
FOUT 4(18) 


FMTK 1 ) 
FMT 1(2) 

= FMT 1 ( 1 ) 
= FMT1 ( 2 ) 
= F H T 1 ( 1 ) 
= FMT 1 ( 2 ) 
FMT1 ( 1 ) 
FMT 1(2) 
=FKT 1 ( 1 ) 
= F M T 1 ( 2 ) 
-FMT1( 1 ) 
= FMT 1(2) 
FMT1 ( 1 ) 
FMT 1(2) 

= FMT 1 ( 11 
= F M T 1 ( 2 ) 
= F M T 1 ( 1 ) 
= F M T 1 ( 2 ) 
FMT 1 ( 1 ) 
FMT1I2) 

= FMT 1 { 1 ) 
=FMT 1 ( 2 ) 
= FMT 1 ( 1 ) 
= FMT 1 ( 2 > 


DEBUG 


WRITE (9. 11 00) F0UT1, FOUT 2* FOUT 3, F0UT4 


I F (NOARRS . EO. 1 ) GO TO 260 


BEPBODUCBltlW WJH 

ORIGINAL page Ib 




Oon 




WRITE (6. FORMS 1 ) ( TYPES ( 1 ) ,1 = 11,12) , ARNMS I ( 1 ) , NO l NE A 

WR I T. FI 7 , FOR M S2 ) (TYPES! 1 ) , I = I 1 , 1 2 ) , AR WHS I ( 1 ) , NO 1 tv E A 

I F ( MOARSM , GT . 1 ) WR I TE I 6 , FORMS3 ) ( A R MM SI ( I ), NO INHA, I=2,NOARSM ) 

IF ( NOARSM* FT . I ) WRITE I 7 , FORM S4 ) I ARNMSI ( I ) , NOINEA, l=2,MOARSM) 

WRITFI A.2200) ARNMS II NOARRS ) , NO I MLS 

WRITE! 7, 22 50) ARNHS I < (MOARRS ) ,N01 MLS 

WRITE (A, 2300) 

WRITE (7, 23 50) , ■ 


MnW=Nf)ARSP 

I F( NODD.NE.O ) N0W=N0W-1 

I F (NOW.GT .0 ) WRITE! 6,2400) ( ARM A HE, I NO EX ! 1 ) , ARNMSI ( I ) , 1 = 1, NOW ) 

I F ( NOW . OT . 0 ) WRl TE! 7,2430) ( ARMAHE, I MO EX ( I ) , ARNMS 1 ( 1 ) , 1 = 1, MOW ) 

IF! MOOD . ME .0 ) WRl TE ( 6 , 2 500) ARMAHE , I NDEX < NOARSM ) , ARNMS I (NO A R SMI , 
1 ARMAMF . INDEX! MOARRS) , ARNMSI ( NOARRS) 

IF ( M1DD.NE.0) WR ITE! 7 , 2550 ) ARNAME , INDEX ( MOARSM ) , ARNMS I ! NOARSM ) , 


1 ARNAME , INDEX! NOARRS )» ARNMSI ( MOARRS ) 

I F ( NO DO • E 0. 0 1 WRIT El 6, 26 00 ) ARNAME ♦ I NDEX! NOARRS) , ARNMS I ( NOARRS ) 
I F ( NO DD . £0*6 ) WRITE! 7,2650) ARNAME, I NDEX ( NOARRS ) , ARNMS I ( NOARRS ) 


HERE, INTEGER-2 AMD INTEGER *4 DIFFER 


MTY=NTYPE-2 
GO TD (220,240) ,NTY 
220 CONTINUE 

NnUSE'l=-NOIMEA + l 
DO 230 L = 1 .NOARSM 
WRITE! 6,2 700) ARNMSI (L) 

WRITE (7, 2750) ARNMS I ( L ) 

N 0 U S E 1 = N 0 U S E 1 + N 0 I N E A 
NOUS E2=NnUS E l + NO INE A- 1 

' WR I TE ( 6 , F OUT 1 ) ( I NT AR2 ( K ) , K = NOUSE 1 , NOUS E2 ) 
WR I T E ( 7 , FOOT 2 ) ( INTAR2! K ) , K = NOUSE 1 , N0USE2 ) 

230 CONTINUE 

WRITE (6, 2700) ARNM S I ( NO ARR S ) 

WRITE(7,2750) ARNMSI (NO ARRS) 

NOUSE 1 = NOOSE 1+NU I NE A 

WRITE! 6, F0UT3) ( INTAR2! I. ) , L = N01JSE 1 , NOEL EM ) 
WR I TE I 7 * FOOT 4 ) ( INTAR2! I. ) , L = NOUSE 1 , NOELEM ) 

GO TO 300 . :> 

240 CONTINUE 

NOUS E 1 =-N 0 1 NEA+ 1 
DO 250 L=1 .NOARSM 
WRIT E ( 6 *270Q ) ARNMSI (L) 

WRITE (7. 2750) ARNMS I ( L ) 

N0USE1 =N()US E 1 +N0 1 N E A \ ' D 
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MfUJ SE2 =NOU S H J+NOINEA-l 

WR I TE ( 6 ♦ F OUT }. ) ( I NT AR4 < K ) » K sNOUSE 1 , NOUS E 2 ) 
WRITE ( 7. FONT 2 ) ( INTAR4t K) .K = Nl)USEl, NOUSE2 )• 
250 CONTINUE 

WRITE {6.2 7 0]0 ) ARNNS I ( NOARRS ) 

WRITE! 7.2750) AKNNSI (MTJARRS ) : 1 ! 

NOUS 61 ~ MOU S E l +NQ.T M E A 

WR I T E( A, FONT 3 ) ( INTAR4 ( L ) .L=NOUS El. .NOE LEM ) 
WR I TE ( 7 . FOOT 4 ) ! I N T A R 4 ( L > ♦ L = NQUSE 1 * NOELEM ) 

GO TO 300 v .0; UN;. ; 

ONE ARRAY! 

f 

260 CONTINUE ; 

WRITE (6. 2700) ARNAME 
WRITE (7, 2750) AKNAME 
NTY-NTYPE-2 
GO TO ( 270.280) .NTY 
270 CONTINUE 

WR I T E < 6 » F0UT3 ) ( I NT AR2 ( I. ) .1 = 1 .NOEL EM) 
WRITE! 7.F0UT4) ( I NT AR2 ( L ) ♦ L = 1 ♦ NOELEM ) 

GO TO 300 ! ■--! . 

280 CONTINUE 

WRITE! A. F0UT3 ) ( I NT AR4 ( L ) . L= 1 . NOE L EM ) 

WRITE ( 7 ♦ F0UT4 ) ( I NT AR4 ( L ) . L= 1 . NOELEM ) 

300 CONTINUE 

WRITE (6.2800) 

WRITE (7, 2850) 

RETURN 

END 


APPENDIX II - QUICK PROGRAM LISTINGS, 
INPUT. AND JCL OUTPUT 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 





I mrr-T^lir 

' ' 


CULL 7 4 10 .04.4b, 


CCC00 100 
CCC OO 1L0 
C CO C C 1 4 0 
COC 00 200 
C COCO j 0 0 
COO CO 40 C 

ccccosoo 

COO CO 600 
CC0CC700 
c co co a oo, 
00000900 

C0001 occr 

C CO 01 1 0 0 
COCO 1 200 


// EXEC 
//L INK. 

INCLUD 

//* 

//« 

//* 

//GO. FT 
// SPAC 
//GO. FT 
//SPAC 
//GG.TP 
// VOL= 
//GC.SY 
//GC.OA 


LI NM 
06 JEC 
L LOAi 
UNIT t 
UNIT 
TP1 ' 
Cor go : 
E = (CYl 
C9PC0. 
t = ( C Y I 
192 D; 
SER=L ! 
SUDUMI 
TA5 D( 


JCL&1Q2H 


, ULli 1 ON. UC— 40 OK 

JO 4 ' J - -■ " 

. b( ZoW JMK92 ) 

. S THE DEBUG AND GENERAL MESSAGE UNIT ON PR 
CONTAINS THE LISTING OF THE TAPE CONTENTS 
IS THE INPUT DATA TAPE 
) D SYSJUT=A »DC3=( RuCF|M=VBA, LKECL-137 • BLKS 1Z; 

7,3) ) : : : . 

)D SYSOUr=A .DC 6— ( RECF M=V8A , LRECL= 1 37 . DLKS I Z ! 
; 1 5 . 5 > > 

JNIT=24C0-9.DCB=( KECF M=U . BL KS l ZG=320 00 ),LABI 

► b 

>D SYSOUT —A /• 


*** END OF MEM3ER *** 


14 RECORDS PROCESSED. 




C THIS PROGRAM WAS MTlTTFN BY F. F1I LAS I D F CSC FOR TASK 04?, 

C SKY!. AH, UNDER CONTRACT MAS-5- 1 1999 Id APRIL, 1974. IT 
C UTJU Z.HS SM'wRW'JT I N.E'Si HI: FI. E l ,C l.UTriK , k r F L F 2 , MELT A 1 , WM I TT » SPL I NE * 


C USING THE HEAD PROGRAM ALRE ADY F DEVELOPED FOR THE S3 9? DATA, 
C THIS PROGRAM HILL PICK OFF POINTS If! THE EXISTING DATA TAPE, 
C nn A -minimal amount of PROCESSING AND FINALLY PRINT out THE 
C RESULTS. ' 

C THE MANNER IN WHICH 'ThE POINTS WILL HE PICKED WILL BE AS 
C FOLLOWS: EVERY THIRTIETH POINT UN A SCAM LINE, AND EVERY 
C THIRTIETH SCAN LINE DILL HE. STORED AND PROCESS* 


^ * v Of %y 

-i* /r v *r *r 


M* Of O# hU WV Of 


fjS -#|V V 


c 




■ Of O/ Of Of .O#. Vf. vV Of 




COMMON/ VALUES/R 1 < 3 5,67 ) , T 1(35,67) ? HR (35,67 ) , Y1 (35,67 ) , 

1 X 1(35, 6 7 ) , D 1 ( 3 5 , 6 7 ) , E ( 35, 6 7 ) , El ( 35 ,67 ) , TBB ( 3 5 , 67) , R4 ( 3 5 , 6 7 ) , 
1 LC , LR , L02 , 1. R 2 , LR 3 , L C 3 , l.R-7 • I. O , P LOT 1 , P LOT? , PLOTS , PL OTA, PLOT 5 
DIMENSION S C A N ( 1301 ), I SCANT 13.01 ) , N VA L ( 3 ) , A ( 35 , 67 ) , B ( 35 , 67 ) , 

1 P I X FL ( 1 P40 ) ,0(35.67 ) ,0(35 ,67 ) Y '-UFaF 

I N T F G E R - 2 ISC A N 2 ( ?. 6 0 2 ) , D E G , A H I N , 0 S E C 

N A M F LI ST /I N PUT/ N C H A N 1 , N C H AN 2 , N U h PIT, N U M L I N , I P I X E L , M C H A M 3 , 

1 N GHANA, 9 LOTI ,PL OT ? , PLOT 3 , P LOTA, PLOTS, N I J M PL T 
LOGIC AL-A PLOT 1 , PLQT2 , PLQT3 , PLOTA, P L0T5 
DATA NC HAN 1/0/ 

DATA NCHAN2/0/ 

DATA MCHAN3/0/ 

DATA NCHANA/0/ 

DATA I PIXEL/0/ 

DATA I PXOOD/37 / 

DATA IPXEVN/19/- 
DATA LASnnD/1050/ 

DATA LAS EVN/ 10.68/ 

DATA I LAST 70/ 

DATA NOMP JT/30/ 

DATA NUML IN/30/ 

DATA NVAL/0,0,0/ 

DATA RADI/ .017453/ 

EQUIVALENCE ( N V A L Cl ) , NGQND ) . (NVAL ( 2 ) , NHOUS ) , (NVAL ( 3 ) , NSC AM ) 
E 0 U I V A L E NC E (SC A N U ) , I SC AN ( 1 ) , I S C A N 2 ( 1 ) ) 

FOOT VALENCE (ISCAN2( 50) , DEG) , ( ISCAN2(51 ) , AH IN), 

1 ( I SCAN? ( 52 ) , 0 S E C ) 


FOU IVALENC E ( PI X E L ( 1. ) , SC AN (62 ) ) 
DATA NCnUNT/0/ 

DATA NCCRJl /()/ 

DATA NCUU2/0/ u. 

DATA NC 003/0/ 





REPRODUCIBILITY OF THE 
n-j • ORIGINAL PAGE IS POOR 



•DATA NC01J4/0/ )\ / 

C ^t - *,L % |.v J. V* Jy «►, *>> i’V **- %V »)«'**# J» <*fr «yi %•> %> ^ 4*# * f r< W ^ W Vf* V^- -**> *V %V V# *’^<1 ^ ***• V# *♦<* iV k'* vV k*r 

rp. ) ( k .#|C /p r*|k /j\ # t C #|* f|» f|k «|% # f k *|* yj* jfj% ^ r?jH fp*S fi 4 * ^|» »|' # p *•> ^) % V| % # 0 *p f|* *|* *| % *1* r t* V # > % fr 

C CWAA'M-LS 15 A HD 16 HH THE TAPE ARK NOT ACTIVE. AS THERE ARE 
C 22 n M THE TAPE, THERE ARE ?0 ACTIVE. THE KFASOH FOR THIS WAY 
C WAS THAT T THE 'CHANNEL' HI. 1 . GIVEN THEM RY HOUSTON OPES MOT 
C C f i R R F S P O m P TO T H E • f. H A N N E t N 0 . • BY WHICH THE SCIENTISTS/ 

C RFFFRFMCF THEN, ( ACCORD I NG TO DR. CURRAN AND CORD OF GSFC ) . 

C IT THFRFFOkE SEEMED USELESS TO RENUMBER THEM HERE BY 
C HfUISTON'S SCHEME. ' . ' '-• * V’ 

C ALSO 19TH ACTIVE CHANNEL WILL NOT HE USED BECAUSE THE 
C IRRADtANCE DATA ASSOCIATED WITH THE WAVELENGTHS ARE EXTREMELY 
C SHALL AMD I NS I Gfo .1 F I CANT . 

/“* s^y kly %*> kV Vy %** vV J# %U Ji «t r ^ Or V# « ( y O/ Oy sV O# Or Or Or s^r «f# Or Oy Vy O* V> Oy %V s*y O/ Vy k> s*y Or Vy Or kU «0> Oy Or Or Oy %iy * 

l! y|k r,H rjt #*j% y ( k y,% y ( \ y^t y,« #|% r ( % y ( % yj'» yjk y^ r*|> y^ yp yp rjk yp rj» yp # 1 % *p #|% /p yp *p yp *jp fp 'p »p ^ ^| % # |> *|* # p ^p ^p V ^ fp 


Ml IMPLT =0 
PLHT1=. FALSE. 
PLOT?=. FALSE . 
PL0T3=. FALSE. 
PL0T4=. FALSE. 
PLOTS*. FALSE. 


READ I 5. INPUT) 

I F ( MCHAM1. GT . 2 2 • OR . MCHAN2. GT. 
I FIMCHA N 3 . GT . ? ? . 0 R.NC H A M 4 . G T . 
I F < MCHAN1 . 60. 15 . OR . NCH AN 1 . ED . 
I F ( NCH A M2 ,E0. 15 . OR .NCH AN 2 . Ed . 
I F ( NCHAN3 . Ed. 1 5 . OR . NCHAN3 . Ed . 
IF ( NCHAN4. Ed. 1 5 . OR . NCH AN4. Ed'. 
' 1 F ( NUMPLT . NE . 5 ) GO TO 5 ' 

: PLOT 1 =. TRUE . 

PLOT 2 = .TRUE . 

PL0T3=. TRUE . 

PLOT 4= .TRUE • 

plots*. true; 

5 LR3 = 0 
LC3=0 
L A S T R W = 0 
LASTR2-0 
L ASTCL =0 
L ASIC 2 =0 
LR4 = 0 
LC4=D 

10 CONTINUE . . 

MCniJNT = NCOUNT+l 
I P I X EL = I PXDDD 
/,. I LAST--L ASODD SM™ 


22) GO TO 95 
2.2 ) GO TO 95 
15) GO TO 90 
15) GO TO 90 
15) GO TO 90 
16>G0- TO 90 




I F ( MOD ( I , P| . L 0 . 0 ) I P I X F 1 = I PXEVN 

1 F ( MOD (F'COUWT ,? ) -l-jo.n ) T L AST = I. ASFVN 
CALL RD1 y? ( SCAN , NVAL ) 
iF-(Mcnvn. eh. i )co m vo 
IF( MCnon.pn.? )d! in ho 
I F ( I SCAMPI I ) .r-O.MCMAM ) CQ TO ?0 
I F ( J SCAMP < 1 ) . EG .MCH AMP ) Gil TO 30 


I F ( I SCAMPI 1 ) 
I F ( I SC AN? ( 1 ) 
CD TO TO 
PO CDMT I NUf: 


EO. OCHA M 3 I GO TO 40 
F 0 .MCHAM 4 )G 0 TCI 50 


READING OF PRIST CHANNEL OR • MCHANl 1 THAT WAS REQUESTED 
USFR 'NCHANl* HILL BE STORED IN ARRAY • 


> -I* ',' 'I' "O *1' ' 


N C 0 U 1 = N C l > U 1 + 1 , 

L 1 NFN1 = I SC AN? ( 4 ) 

MROWM=Mflf) ( LI NEiMl , MUM L IN I : TT 
IFIMROWM.NF. 1 )G0 TO 10 
NRG W 1 = I. I N E N 1 / M 1 1 M 1. 1 N + 1 
I Ft LA STR W. GT . A 7 ) GO TO 60 
LASTRw=NR0H1 
NCQL 1 -0 

0 0 ?5 N=I PIXEL, TL A S T , NUM P I T 
MCDL 1 =NCOL 1+1 

lastcl-ncoLi 

1 F ( NC-OL 1 *GT . 35 ) GO TO 25 
A ( M C 0 L 1 , N R 0 W 1 ) = P T X E L ( N ) 
CONTINUE 

L R = L A S T R W : ' 

LC=LASTCL 

J IF ( L A S T R W . EG . 6 7 ) I.R = L R - ? 

I F ( L ASTCL . EG .35 ) LC = t.C-P 
I F ( L A S T C L . E G . 3 4 ) L C = L C - 1 
A N GG = D E G+ A M I M / 6 0 . + 0 S EC/ P. 4 0 . 
ANG=ANGG*RAD I 
GO TO 10 


READING OF SECOND CHANNEL OR ' NCH AN? • THAT WAS REQUESTED 
USFR ........ 'NCHAN2 ' HILL BE STORED IN ARRAY »B • . 


LI MEN?- 1 SCAN? (4) 

Ncnup=Ncnu?H-i 
MRnWM=MnD (LINEN? ♦ NUB-LIN ) 
I F (NR OHM. ME . 1 ) GO TO 10 


; „ - Tttl 



NIU]W? = L I N E N 2 / NO W L J, N+ l 
I F ( L A STR ? . GT * h 1 i GO TO 60 -T-T; 

LASTR?=NR0W2 : - : -v^,:;v; > rTT. 

wcoL?=n 

nn 35 N=I PIXEL, 1 1, AST ,NUMPIT 
Mem ?=AT.ni? + i 
L A $ TC 2 =NC 0 L 2 
I F ( NO OL 2 . GT ,35) GO TO 35 
B ( M GO L:2 v MR 0 W2 1= P I XE L IN 1 
35 CONTINUE 
v 0 LR 2 = L ASTR2 

LC2-LASTC? ,-7- v;: : {V f 

I F ( L ASTC 2 , EQ . 3 5 ) LC 2 = LC2 -? 

IF( LASTC2.E0. 34 >I.C2 = LC2-l 
IF ( LASTR2.EQ. 67 ) LR2-LR2-2 
A NG 2 = 0 E G+ AM 1 N / 6 0.4 U SEC / 2.40 • ; 

ANG2 = A NG 2 *R A D I 
I F ( L I MFM?. .EG. 1 9 6 1 ) GO TO 60 
GO TO 10 

. J, - r . j. A V J# ^ ^ 4U *U «>l# %*«* *•# %»# O# ^ 

C #|C 2|* fjC #|« 5|% ^ *|V <p yp #p #p *p <p ^p *1* ^p /p ^p *|> # p ^p ^p v ^p ^p *** +% % # p f P # o # p fp 'p r P # P *p» # p # p # P # p # p 'p v # p d 

READING OF THIRD CHANNEL OR ' N CHAN 3 ' THAT WAS REQUESTER 
BY USER « ' NCHA03 1 MILL BE STORED IN ARRAY 'C». 


40 CONTINUE 

MC0U3=NC0U3+1 
L I M FN3 = I. SCAN?. ( 4.) 

NRQWM = M0D ( L I N E M3 , NUML I M ) 

I F ( NR OWN . N E * T ) GO TO 10 
NR0W3-L I NEN3/NU.ML I N-f l 
I F ( LR3 . GT , 67 ) GO TO 60 
LR3=NROW3 
MCOL 3 = 0 

DO 45 N=I PIXEL , I L AST, MUMP IT 

NO 0 L 3 = NC OL 3 + 1 

LC3=NCOL3 

I F I NC0L3 .GT » 3 5 ) GO TO 45 
CfC NC0L3 , NR0W3 ) =.P IXELI N ) 

45 CONTINUE 1 ' 

I F ( L R 3 » E 0 . 6 7 ) L R 3 = L R 3 - 2 
l F ( LC3 . E 0 . 3 4 ) L C 3 = L C 3-1 
V I F ( L C 3. E0.35) LC 3 = L C3-2 
vT GO TO 1 0 




READING OF FOURTH CHANNEL OR ' NCHAN4 ' THAT WAS REQUESTED 
BY USER . . . . . . ' NCHAN4 • . W I LL BE STORED IN ARRAY 'O' 



HO CI1MT 1 *'U IH 

MCfU) / .-Mcnii4+i , 

L I NtM4s (SCAN? ( 4 ) 

MRCl wf- =Rnn ( 1. 1 WFN4 .NUML I MI 
I F ( NROWN . WE . 1. ) GO TO 1 0 
HRf1M4=L IMEW4/WUFL IN+1 
IF(LR4.GT.67)GO TO 60 
LR4=NR(IW4 

went 4=0 

Dll HH M = T PI XEL i T l AST INUNP I T 
WCni.4 = ivtC0L4+I 

LC^=wcni.4 vVv'T't ■/ 

I F ( WCm. 4 . GT . 36 ) GO TO. 55 
n < w c n l 4 * wRnw^r= p i x e l ( w ) 

55 CONTINUE 

I F ( L84 . FO . 67 ) LR4 = I.R4-2 
T F ( LC4 . EU . 35 ) LC4 = LC4-2 
I F ( LC4 , FO .34) LC4=LC4- l 
A N G 4 = D E G + A N I N / 6 0 . +0 $ E C / 2 4 0 . 

ANG4=ANG4*RA0 I 

GO Tfl 10 '' " ■ 

60 CONTINUE ' 

WRITE (6, 3000) 

I F ( MUMPLT . EO . 0 ) GO TO 63 

CALL WOSTAE 

CALL PLOT ST ( 100 1.4) 

63 JF( MCHAW3.E«.O)G0 TO 65 

C A L L T F M p, R H ( WC H AN3 » C » K'U W P L T ) 

I F ( WC HAW 1 . EO * 0 ) GO TO 1 00 

65 CALL REFLE1 ( A , ANG ♦ MCH AW i , ft , ANG 2 , NCH AN2 . D , ANG4 . NCHAN4 , NUN P I. T ) 
STOP 

70 WRITE (6, 1000) 

STOW 

BO W R I T E ( 6 , 2 0 0 0 ) M COUNT ♦ MCOIJ 1 . NCQU2 . N C Q U 3 » M C 0 U 4 
WRITE (6, INPUT ) 

I F ( MU N PLT.EO. 0 ) G 0 T 0 83 

CALL WOSTAE 

CALL PLOT ST (100 1,4) 

83 IF( NCHAH3.EO.0 )G0 TO 85 

CALL TF-VHKHI WGUAN3.C.WUWPLT) . - 

ft 5 CAL L R FFLEK A, ANG . N C H A N 1 , ft . A NG 2 » ,N C.H A N 2 , D . A M G 4, NC H A M 4 , N U M P L T ) 

STOP v .. Vv;;.:. ... 'V' .'A 

90 HR I TE( 6.4000 ) WCHAW 1 . NCH AN 2 .NCH AN3 . NCHAN4 \!* 


C ) 


o«&©nnnCIBILlTy OF THE 


H-7 



STOP 

03 HR IT E ( ft » ft no (I )!■•(. HAM , HCHAM? t l-ir.H AW3 , NCHAN4 
1 00 '•>(< I T E f ft , 7000 ) KCHWA ] ,f,CHAN7 , NCHa\ : 3 t NCH/yN4 . 

STOP 

1000 FltRMAT { 1H0.10X, 'TAPP ERROR' ) 

2000 FOR NAT ( 1 HO , 1 OX , ' ::ND OF FILE' , 5 X , I ft, 5X , 14, 5X, 14, 3X, 14, bX, 14) 
3000 FORMAT! ] HO, 10X, 'GAI.L BEFORE E NO OF F I L F ' ) 

4000 FORMAT! 1HO,10X, 'PLEASE CHECK CHANNEL THAT YOU REQUESTED , 
1CHAMWELS 15,1ft, ARE NOT ACTIVE ' ,5X, *NCHAN1= • , 13, bX, 

? 'WCHANE?= 'T 3 , 5X, 'HCTLANB ' , 13, bX, 'NCHAN4' ,13) 
ft 000 FORMAT! 1 HO , 5X » 'PLEASE CHECK INPUT CHANNEL NUMBER... ' i 

1 ' MCH AN1 = ' , 1:3 > ' NCHAN2= • ,13, 'N CHAN 3= ' , 13, ' WCHAN4 - • , 13, : 

25X , 'YOU HAVE requested for a channel ar fatfr than 2? ' , 

3' (THERE ARE ONLY 22. ACTIVE CHANNELS ON SI 07 TAPE)') 

7000 FORMAT! 1 HO ,1 OX , ' ONLY OWE CHANNEL HAS REQUESTED , NNCHAN3 ' , 5 X , 

1 'NCHAM1= ',13 , ' N CHAN 2= ' , I 3 . ' NCH AH 3= ' ,13, • MCH AN 4- ' , J3 ) 

END 1 > v , . . • . -r'- ' . • : 

SUBROUTINE TEMRRH! M CHAN 3 ,C ,OOMPLT.) 

COMMON/ VALUES /R1 ( 35,67) , TIT 35,4 7 ) , RR (35, 67 ) , Y.1 ( 35,67 ) , 
1X1(35,47 ) ,01 (35,47) ,E( 33,47 ) ,E1( 35,67 ), THE! 35,47) ,R4( 35,67 ) , 
1 LC , LR , LC2 , LR2 * LR 3 « LC3 , LR4 « LC4 , p LOT 1 » PL0T2 » PI.0T3 , PL 0T4 »■ PLOT 5 
DIMENSION C HAMM. ( 21 ) ,C ( 35 ,6 l ) 

LOOT C A I. - 4 P I. 0 T 1 , P L 0 T 2 , P L 0 T 3 , P 1. 0 T 4 , P L 0 T 5 
DATA CONE/3,; 74 13E + 04/ 

DATA CTH0/1.A38HE+04/ 

DATA PI /3.141ft/ 

DATA CHANNL/, 540, . 540 , . 5 85 , . 585 , . 645 , . 645 , . 720 , .720, 

1.830, .830, 1 .450, 1.450,2.225,2, 225, .000, .000, 12.500, 
2.485,1.005,1.140,11.350/ 

DO 10 1=1,21 
W A V E T = C H A N N L ( I ) 

1 F ( NCHAN3 . E 0 . 1) AO TO 15 
10 CONTINUE 

WRITE! ft, 1000 INCHAN3 

stop o>v- ; :c; ; 2v':;.:.v. 

15 TTT = P I n !, i A VET** 5 
DO 20 . 1 = 1 ,I.C3 
DO 30 J = 1 ,LR3 
TBB ( I , J )={). 

I F ( C ( I , J ) . I. F .0. ) AO TO 30 
TAB=l. ; +( CONE/(TTT*C( T.J) ) ) 

T AA=WAVBT*ALOA (TAB ) . • 

TBB! I, J ) =CTWO/T A A . 

30 CONTINUE 

20 CONTINUE : • • . 


i •. - ... 


REPRODUCiiiiLlTY OF THE 
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H-8 


j 


CALL WRI T! ( 6 ) / . .. 

r p « pi nri )c.all cuntoim tkh,lr3, lob, wwplt, i > 

R F TlJKiV ■ ■ ' ■ ■ 

1000 l FORMAT! I HO, 5X, 'H0HAN3 ODES MOT A OR lit WITH WAVELENGTH , ; - 

ICHAMMEl' ,.BX, 'N:CHA,V3=' ,13) 

END 

SiJRRnUt INE KEFLE X ( A , AF-G ,MCHAN1 , H , ANG2 ,NCHAN2 t l) » AN G4 ♦ N CH A N 4 , N U M P L T 
C 

C THIS SUBROUTINE WAS WRITTEN BY F. MI LA SI OF CSC FOR TASK 092, 

C SKY LAG , IINDFR CONTRACT WAS -5- 11999 IN APR I L , 19 SUhRUIJT INE 

C RFFLF1 TAKES MATRIX 'A ‘, WHICH WAS PASSED FROM THE MAIN 
C PROGRAM AMD WAS FORMED FROHNCHANl, T-V : 

C ; THIS MILL KE TRANSFORMED INTO KEF I.ECTANCES BY THE MULTIPLICATION 
C OF EACH ELEMENT BY THE FACTOR ( P I /FD*COS ( ANG ) ) . THE 
C RESULT I NG MATRIX * R 1 » W ILL BE MULTI PL I ED BY 1000. (TO ALLOW 
C FIXED POINT FORMAT) AND WILL BE PRINTED OUT BY SUBROUTINE HR ITT. 

^ ^ Of A V# >> 4,** %?#■ 1.1# h*# O# ^ -%V 'i 1 ^ » <» Vf O* ^ > hv O-* -• # V# 4V iy J# 

r ^v f,\ #|% #|%. #|«; ^ ^ * ( * fp ^|* **> *|* *|* *j^ ^ rp f(» rp *p* ^* >|V *p* rt' ^j> *i* *|* *|* *|* *i* ^|V ^ v r % *,v ^ r i #j% *»p # ( v .... 

># ^ O# ■%'# \V 4^ *.V 4*# *•** J# %V 4".' 1,*# V>* «U iU '4>- 4-^ ;4V 4» f 4 vl# %♦# J<* 4** 4^ t 1 ! 4 1 # 4^ 4^ 4^ -4^ 4^ 4‘^ 4^ '4^ 4 1 # 4*# 4 # 4^ 4^ 4^ 

P f J4 f |4 <*|4- *»j4 *|* *|*4 *|* *p4 /J4 #|V #»> f^4 *|W ^4^jW ^J4 #|4 #|4 »|4 *|>*|> rp <P /p /p ^p ^j4 yp 4 #p #p *|% J?.|* _^|> . . *|* i*p ^p4 fp fp ^4 #j\ /p #p #p /p >p /pi #p ^4 ;/p /p4 /p *jV /j> 

COMMON/ VALUES/R1 ( 35,67 ) , 11(35,67 ) ,RR( 35,67 ) , Y'l (35,67) , 

1X1(35,67 1,01 ( 35, 67 ) , E (35,67 ) , El ( 35,67 ) , TB« ( 35 , 67 ) , R4 ( 35 , 67 ) , 

L L C, I. R , L C 2 , L K 2 , L R 3 , L C 3 , L K 4 . 1. C 4 , Pi. TO 1 , PL 0 T 2, PL 0 T 3 , P L 0 T 4 , V L 0 T 5 
DI MFM SION A (35,67 ) ,B( 35.67) ,0( 35,67) 


1X1(35 

1LC.I.R fl- l/C ? LDA T U'X -> » l_^~9 f L.‘\-T t 1.0*71 F I. I U 1 f 

DIMENSION A (35,67) ,5(35.67) ,0(35,67) 

LOG I CAL44 PLOT 1 , PLOT 2 . PL0T3 .PLOT 4 
C 

C 4l/ O/ 4 I/ V> 4 I# 4 1 / %l*» *t/r 4^/ 4*/ U/ H** 4 U 4^ 4*/ 4^ 4 I/ 4*^ 4*/ 1 O* 4*/ 4<# 4 I/ 4 I# V/' 4 U 4^# 4 I/ 4 )/ O/ 4 I/. «»U \l> v/ 4 V O# 4»f 4<r 4** 4 ^ 4>i 4V %t#> *1# ^I» 4^ %(/ \</ %!/ 4> %•#» Vf 4*J> M/ 4 / 4 1 / 

*1* * 1 * *| H fp' rp^ /p 1 * *|** *|* *p *|* * 1*4 /p *|*4 /p4 j/|> #p #|4 /p yp #p *|% *j-4 /p4 /p #|4 /p /p4 #p /p f|4 *p /p /p /p /p #p /p fp ^p *p** /p *|% #)% /|S /p /p /p #p / f 4 /p /p /p /p 

c 
c 


ARRAY FF IS THF. ARRAY OF IRRADJ ANCE DATA ASSOCIATED WITH THE 
AVERAGE WAVELENGTH FOR EACH ACTIVE CHANNED. THESE VALUES WERE 
C DERIVED THRU GAUSS TAM • AVER AGING ' OF DR. THEKAKARA IRRADIAHCE 
C. DATA US ING CNTHGS92 . 

C NOTE: THE FF IRRADIANCE DATA GIVEN FOR THE 15TH AND 19TH 

C ACTIVE CHANNELS ARE MERELY DUMMY VALUES. SINCE IRRADIANCE 
C DATA ASSOCIATED WITH, THE WAVELENGTHS REPUS ENTEO BY THOSE 
C CHANNELS ARE EXTREMELY, SMALL AND INSIGNIFICANT, NO 
C CALCULAT USING THEM WOULD BE SC I ENT IF I CALLY MEANINGFUL, 

C ( ACCORD IMG TO DR . CURRAN OF GSFC) . SO. AS THESE CHANNELS 
C WOULD NEVER R'E USED, DEK V AT I ON OF ACCURATE IRRADIANCE VALUES 
C . SEEMED POINTLESS. 


C* 


* %*♦ i»U %*# 4U 4^ 4^/ •%•/ Of 4 I# 4*/ O/ 4‘/ vtf 4 r # O* 4*# V# 4*y V# 4*/ Vi 4 ^ V/ V* V'/ 4 1 / V/ «</ 4^ 4 U V* V/ 4>/ 4<# 4 

^ *|* *|* *|* fp /p #p *j% *|4 »!%• #p *p #P fp *|^ .*!**. ,#|>t^*p% *j%yp /p #p4 #p ^|4 /p #p »p #p #p /p #P ^p f|4 yj4 /pt f|4.#p / 


S ^,4 *1*4 *p /p V #p% 


RFAL-YR FF ( 229 » Ff) ; 

DATA FF/().17B44BHD0,0. ) 7 P 448 8 D 0 . 0 . 1 70 4 56 40 0 , 0 . 1704564D0, 

ID. 182669 700,0. 15 2669 71) 0, 0 . 13 1 0 9 7 4 D 0 , 0. 13109 74 D 0 , ( ) . 10 343611)0, 
10. 1 03436 1 DO, 0.022 07491)0. C).022074y I>0,0. GOBI 09 8 D 0 , 0 . 00 810 9800, 
10 . 0000000 DO , 0 .OOOOOOODO , 0 . OOOOOODO , 0 .199989100,0 . 0/6290000 , 
to. 054925700,0. ooooooono, 0.172363900/ • 


> 0-0 


DATA Pi/ 3. 141 h/ 

DO b i*i = 1 .2? 

FH= F i- { 

T F ( f I' 0, NCH AMI )G0 TO 7 
*5 CUNT 1 MI)G 

W R i T l: ( ft, 1 0 0 0 ) N C H A M l 
STOP 

7 CONTI WOP 
. CA = CllS ( AMR ) 
f=fo*ca 
: ‘ FAC=Pf /r. 

DO 10 T = 1 , LC . 

nn ?o j = i,i.r 
R in,j)=n.o 

I F ( A ( T . vl ) . IE . 0 . ) GO TO ?0 
R 1 ( l ,J)=AU , J)*FAC 
20 CONTINUE 
10 CONTINUE 

DO 30 1 = 1 , LC 
DO AO m = 1 t L R 
RR(L ? OT=Rl(:LvW)^lOOO. 

An COMTIMUF 

30 CONTINUE ’ 

CALL WRTTT(l) 

IF (PLOT? ) CALL CONTOU ( RR , LR , LC,MUMPLT,2 ) 

I F ( N C H A N 2 . N E » 0 ) G 0 TO A!5 

WR Tt E ( AV2<mQT NCH AN 1 , NCHAN2 ,MCHAN4 ; 

A 5 NUM = 0 

CALL CLUTHK ( MIJM , N U M P L T ) 

CALL REFLE2 ( R , AMG? , NCHAN2 , FF , D, AMGA. NCHANA, NUMPLT ) 

1000 FORMAT ( ]. HO , 1 OX » ' NCH AN 1 DOES NOT AGREE WITH FF ARRAYS 
15X, • KCH A N 1 = • ,13) 

2000 FORMAT ( 1H0, 'PROGRAM STOP ONLY ONE CHANNEL WAS REOUESTED , 

1 NCH AM 1 = S 13, ' NCH AN 2= • ,12,' NCH AN 4= SI?) 

RETURN ' .'Lj.-V 

END 

SUBROUTINE REFLE? ( B , ANG2 , 1 ICH AN 2 , F F , D, A N G A , M GHANA, MUKPLT ) 


THIS SUBROUTINE WAS WRITTEN BY F. N I LAS I OF CSC FOR TASK 092, 
u SKYLAR, UNDER CONTRACT NAS-5- l 1999 IN APRIL, 197*. SUBROUTINE 
C RFFLF? TAKES MATRIX »B'» WHICH WAS PASSED FROM THE MAIM PROGRAM, 

C AND WAS FORMED FROM NCH AN?. FT WILL BE TRANSFORMED INTO REFLECT ANCFS 
C BY A SIMILAR PROCEDORF AS REF LEI (EXCEPT THE OUANT1TY FF FOR THIS 
C CHANNEL IS DIFFERENT). THUS A REFLECTANCE MATRIX 'k2‘ WILL BE FORMED, 
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c A >\'FW MATRIX 'XL' WILL HP FORMED RY THF R !: l. AT I Dl >SH 1 P XI =R?/kl 
G WHERE kl IS THE REFLECTANjCP MATRIX OF SUBROUTINE RHFI.EI BEFORE 
C MULTIPLICATION BY I OOO. 

C * # v * $ >i; * * sS * ){? ;|s if if if * s* jJc * # if i|t s;i if >;c * * * (IMs if if if if s;t if if if iffiufff if if if if if s|< jjs if if, s;< if if s g ff'if sjt sfc if if s 

Q if if 'I* 'i* v ,f 'i* W v '!* v *f if *f if n* ^ t 'i* *i' n’ '!> ?!' 'i' !j; '!■ ?[t if '!» s|, if »Jc if if if if if -1' sjt if if if *1" «i' Jjt Jjt !|> >|i ;j; jjc if if 3jc 3jc sjc ; 


C O M H 0 M./ V A L U E S / R 1 ( 35, *7 ) , T| ( 34,6 7 ) ,RK ( 35, 67 ),YH 35, 
1X1. ( 3b, 67) ,01(33, AY) .£( 35 , 67 ) ,E1 ( 35 , 67f , TKB ( 35, 67 ) , 
3 LC , LR , I.r.2 , LR2 , Lr 3 » LC3 , LK4 , LC4 , P LTD 1 , PLOT? , PL0T3 , PL 
DIMENSION R<35,67).h?( 35,67) ,0(35, 67) 

L0gjtal*4 ploti , plot? , plot3 , pl(it4, plots 
RFAL*B FF( ??) ,F0 
DATA PI 73. 1416/ 

DO 5 M=l,?2 7 ' 

F 0 = F F ( M ) 

1 F ( M . EO . MCHAN2 )G0 TO 7 

r CONTINUE • 

WR I TE ( 6 ,1000 ) N CHAN 2 
: STOP • 

' CONTINUE 
CA=COS ( ANG? ) 

F=FO*CA 

FAC=PI/F i I 

DO 10 1=1, LC2 . 7 . 

DO 20 N=1 , LR2 
R? ( I ,-N ) - ft ( I , N ) * FAC 
i CONTINUE 
) CONTINUE 

• I F ( AiCH AN4 . EO. 0 ) GO TO ?5 ^7: ; 77 - 

CALL REFLF3 ( FF ♦ ANG4 , NCHAN4 , 0 ,R 2 , NUMPLT ) 

DO 30 J = 1 , L C 2 
DO 40 K = 1 , L R ? 

XI ( J,K)=-.99 

I F ( R 1 ( J »K ) . LE • 0 • • OR • R2 ( J » K ) • LE • 0 • ) GO TO 40 
X l ( .J » K ) = R 2 ( J » K ) / R 1 ( J , K ) 

) CONTINUE 
.CONTINUE 
no SO L=1,LC2 
DO 60 M = 1 , LH? 

RR( L»M)=X1(L,M)*100. 

CONTINUE 
I CONTINUE 
CALL WR JTT ( 3 ) 

MUM=1 

CALL CLUTHK ( NUM, NUMPLT ) 

DO 70 I = 1 , L C ? 7:7:7- 7- 7-77.L -7 7 7-: ; : 


6 7 ) , 

K 4 ( 35, 
0T4, PL 


67) , 

or 5 
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.on HO K = 1,l.R2 
01 ( I . K ) =0 . 0 

I F ( Y 1 ( ! , K ) . Ri ) . 0 . 0 . Ok . X 1 ( I , K ) . E<-> .-0.99) Oil TO 80 
01( I ,K )=X1 ( I , K ) — V 1 ( 1 ,K) 

HO CONTINUE 
70 CONTINUE 

on 90 J = l , I.C2 
on ion k=1,LR2 

RR(J,K)=D1(J,K )*100. . 

100 CONTINUE 
90 CONTI MU F 

CALL WRITTI4) i 
DO MO L = 1 » L C 2 . 

00 1?0 0=1 » LR2 

I F < T 1 (L,M).LE.R. ) HR ( L » to ) =0 . 0 
120 CONTINUE 
110 CONTINUE 

IF ( PLOT 4 )CALL CONTOU ( RR , LR 2 , LC 2 , MUMP L T , 4 ) 

N 1 1 l-i M = 0 

CALL DELTA 1 ( NUMM ) 

RETURN 

1000 FORMAT ( 1H0 » 10X , ' NCHAN2 ODES MOT AGREESH TH FF ARRAYS 
1 5 X ♦ ' M C H A N 2 = S I 3 ) ' ' ' S - , 

END -i V : 

SUBR0UT.1 ME REFLE3I FFVANG4 , NC.H AN4 , D , R2 , MUMPLT ) 

COMMON/ VALDES /R 1 ( 3 5 , 6 7 ) , T 1 ( 35 , 67 ) , R R ( 3 5 , 67 ) , Y 1 ( 3 5 , 67 ) , 
1X1(35,67 ) » DM 35,67 ) , £.( 35, 67 )-, El ( 35 , 67 ) ,TBB ( 35, 67 ) , R4 (35,67) , 
•2LC ,'LR, L C 2 , L R 2 , L R 3. , LC3 , LR4, LC4,PL0Tl , P LOT 2 , PLOT 3 , PL0T4 , PLOT 5 
REAL *8 FF( 22 ) , FO 
0 I MENS I ON D (35, 67 ) , R2 ( 3 5 ,67 ) 

LOG 1C A L * 4 PL OT 1 , PL 0T2, P L0T3 ,PL0T4 ,PLOT 5 
DATA P 1/3. 1416/ 

DO 10 M=1 ,22 
FO-FF ( M ) 

I F ( M . EO . NCHAN4 ) GO TO 15 
10 CONTINUE 

WRITE! 6, 1 000) NCH ANA- 
STOP 

15 CONTINUE 

CA=COS( ANGM 
F= FU*C A 
F AC=P I / F 
■0.0 20 T = 1 , L C 4 
DO 30 N = 1 , L R 4 
R4( I . N ) = D ( l ,N)*F4C 
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30 CONTINUE 
pn CUMTINHF 

nn 40 j = i ,i.G4 

on 50 K=r,’lR4 w . v - 

XKJ.K)s-.99 

TFT R? ( J « K tv L E * 0 . .0R.R4( J,K) . LE.O. ) KO TO 50 
; : XI < J .K ) -R2( U,K )/K4( J , K ) 

50 CONTINUE 

40 COM! I MU E 1 V . : 

DO 60 L = l » L C 4 
DO 70 0=1,LK4 
RR ( L ,M ) =X1 ( L . H ) Y 100. 

70 CONTI NOE •: 

00 CONTI NUE 

CALL W R I T T ( 7) 

NIJM-? 

CALL CLUTH'K(NUM) 

DO 80 i ~ 1 7 L C 4 
on 90 K=1 «LR4 
OK I fK )-0.0 

IF<Y1(I,K).LE.0.0.0R.X1U,K).EC1.-.99)G0 TO 90 
OKI * K ) = X 1 < I , K ) — Y 1 ( I,K) 

90 CONTINUE 
80 CONTINUE 

DO 100 J=1 ,LC4 
DO 1.10 K= l , LR4 
R R ( J » K ) = D 1 ( J , K ) N 1 0 0 . 

110 CONTINUE 
100 CONTINUE J : y 
CALL WRITT(R) 

DO 120 L = 1 , LC4 
DO 130 M = 1 , L R 4 

I F ( T 1 ( l , M ) « L E ♦ 8 ♦ ) R R I L , M ) = 0 . 0 
130 COMT 1 NOE N 
120 CONTINUE 

IF ( PLOTS ) CALL CONTQU ( RR , LR4 , LC4 » NUHP LT , 5 ) 

MUf4M = l ' ■ 33 ■: , : . 33 • ' • ; • 3 3 

CALL DELTA! (NUNM) ■' 3 ' 3 ' 

RETURN • • - AY;.:.;; 

1000 FORMAT ( 1 HO » 10X , ' NCHAN4 DOES NOT AGREE WITH FF ARRAY' ,5X, 

1 • MCHAN4= ' 13 ) 

END • V-V' 

SUBROUTINE C. t.UTHK ( NUM , NIJHP LT ) 

COMMON/ VALUE S/R1I 3 5,6.7-1, T 1 ( 3 5 ,67 ) , RR 13 5 , 67 ) ♦ Y 1 < 35,67 ) , 

♦ El ( 35, 67 ) ,TB8{ 3 5,67) ,R4< 35,67) , 


i.i. n . r.« » LC2 , lr?,lr 3 , i.C3 , lra , i.ca ,p i.nn , plot? , plot 3 , plota, -plots 

DIHPWS 1 1 »M X ( in ) , Y < 1 0 ) ,XU( 1 V):,YH{ 19) ,F (19) ,U< 1 V ) , XH 14) , YF (19 ) 
LOGICAL*'' PLOT l, PI 0T2 , PLDT3 TP L0T4 , PLOTS ■ 

R F A l * 8 5 , X , Y , TX , VI . VII , F . II . Xi I , Yl l , X F , Y F 

DA T A X /n.,0 .'03 H , n . 0 SI 2 , 0 . 7 A H , O . A ? 7 , 0 . ISO 7,0. 759, 0 . HA 8 , 

10.89? ,0.020/ 


DATA Y/0. , 1 . ,7. . 5. . 10. .?0. , 80. , 1()0; , ?00. , 50(). / 

DATA XII/ 5. , 6 . , 7.. , 8. ,9 • ,10. ,30. , 30. , 40. , 50. ,60. , 70. , 80, ,90. , 100. 
] 300. , 300. , A00 . :: , 800./ i 

DATA YO/0. 963,0. 933 , 0 . 908 , 0 .887,0.865 , 0.850,0. 72 0, 0. 643 , 


10.601 .0. 5 7 5. 0.5 88.0.543. 0.534. 0.5 23.0. 52010.493.0.482, 

20.480.0. 480/ 


DATA XF/5. *6. ,7. . 8. , 9. , 10. , 20s , 30. , 40. , 50. , 60. , 70. ,80. ,90. ,100. 

1200. . 300. .400. .500. / 

DATA YF/1.04, .97, .917, .905, .880,1 857 ,. 7 19, ,648 , .612, 

2.590. . 576 . .567. .560. .555. . 55. .534 . .530. .530. .530/ 

IF ( MUM • EQ . 0 ) GO TO 5 
IFIMIJM. 1-0 .1 ) on TO 40 
IFINUM.EO.? )G0 TO 70 . 

5 M = 1 0 

11=3 : ■ ■ ' 

' 10=3 • y 

VL=0 . 


V 11 = 0. , 

CALL S P 1. 1 ME ( S , X , Y, M, 1 , TX , I L , V L , I U , VIJ , F, U ) 
DO 10 L=1 ,LC 
DO 20 1=3 , LR 7 


S = R 1 ( LI Ml 
T X = 0 . 0 

IFtS.LE.O. )G0 TO 15 ' 1 / 7 , 

C ALL S PL I ME ( S , X , Y , N , 2 , TX , 1 L , VL , I U , VU, F , U ) 

15 T 1 ( L , M ) = T X 
20 CONTI WOE 
10 CONTINUE 

CALL MR I TT ( 2 ) 

1 F ( PLOT 3 ) C ALL CONTOIH T 1 , LR , LC , MUMP LT , 3 ) 
RETURN 77 

40 N = 1 9 
10=2 
1 1. = 3 
VL = 0. 

vi i=o. 

C A L L S PL I ME < S,XO, YO , N , l , TX , I L , V L , I U , V'J, F,U ) 
DO 50 1=1 , LC2 
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.no 60 k=i,i.r? 

:u s=ti ( i ) --v-t 

... tx=o.o ' ■ 1 u * : 

IFIS.LE.O. )G0 TO 55 

CALL SPLINE(S,XO,YG,N,2,TX,IL,VL, I U , VII , F » U ) 
55 Yl(r,K)=TX: 

60 CUNT IN HE 
50 CONTINUE 
RETURN 
70 M = 19 


V L = 0 • 

VI 1 = 0. 

CALL S P 1. 1 ME ( S , X F , YF,N , 1 , TX , I L , VL , I U » VU , F, U ) 

DO 75 I =1 ♦ LC4 
DO 80 K=1 ,LR4 
S = T1 ( I .K ) 

T X = 0 . 0 

I F ( S . LE . 0 . ) GO TO 85 

CALL SPLINE ( S,XF, YF,N,2,TX , I L , VL , I U , VU, F , U ) 

85 YU I . K ) =TX 

80 CONTINUE ' 

75 CONTINUE 

RETURN ;j... TV;, 

. END ' ■ ^ ■ ■ ■ . Y -T-r 

SUBROUTINE OELTAKMUHM) 1 . 

• COMMON/ VALUES /R1 ( 35,67 ) , T 1 ( 3 5 , 67 ) , RR ( 3 5 , 67 ) t Y1 ( 3 5 , 67 ) , 

1X1 ( 35, 6 7 UDK 3 5,67 ) ,E( 35,67 ) , E 1 ( 35 , 67 ) , TBB ( 3 5 , 67 ) ,.R4< 35,67) 
1LC,LR.LC?,LR2, LR3 , LC3 , LR4, LC4 , PLT01 , PI.0T2 , PL0T3 , PL0T4,PL0T5 
DATA ZERO/ '0000' / 

DATA EYE/ • •/ 

DATA STAR / ' I I I I ' / ' : vV V ; V.'7 • 

IFINUMM. EO, 1 )G0 TO 50 


DO 10 1 = 1, LC2 
, Dn 20 J = 1 , L R 2 . 

F (I , J ) =0 

I F ( D 1 ( I , J ) . GT . 0 .AMD. T 1 ( I , J ) . GT . 8 . ) E ( I , J ) =+ 1 
IF (01 (I , J ) .EO.O.OR, Tl ( I . J) .LT.8. ) E ( I , J ) = 0 
I F(D1 ( I » J ) . LT. 0 . AND . Tl ( I , J) .GT .8 . ) E(I, J ) =-l 

20 CONTI NUEv : . : yV. J; . ' 'V ; \. .• 

10 CONTINUE V;:U : W 

■■ DO 30 N= 1 , LC2 ; Uo?: 

DO 40 I. = l , R 2 TVO''- UV./,7 o 



I FI E ( N ♦ L ) . RH. +l ) F 1 ( N , I.) = 7 ER 0 
I F( F(N,|. ),EU.O) B 1 ( M, L ) = !■] Yt: 
l F ( M N « L ).FO.-l ). FI ( N. L ) = S T A R 
40 CONTINUE 
30 CONTINUE 

CALL WR J TT ( 3 ) 

RF TURN ; U; •. . ';' ; 7- • "•V; 7^.77 ; 7 . 

50 DO 60 I =1 . LC4 4 
on 70 J = 1 ♦ I. R 4 '■ 

• F ( l tJ ) = 0 . | 

IF (OK T-, J ) .or . 0 . A NO . T 1 ( I , .1 ) . FT. 8 . ) E ( I » v. 

I F ( n l ( T . J ) .F O.n. OR . T 1 ( I . J) . LT.R. ) E( 1 , J J 
I F ( n 3 ( T . J ) .LT.0.AND.T3 ( I, J) .GT.8. ) E( I 
70 CONTINUE 
60 CONTINUE 

no RO N = 1 * L C 4 -■■■“O 

DO 90 I. = 1 t L R 4 " : 7 1 . 

T F ( E ( N ♦ L ) . E 0 . + 1 ) Ell MV L ) =ZER 0 
I F ( F.(N,L ).EO.O) El ( NrL ) -EYE 
I F ( E(N,L ) .EO.-l ) E1(N,L)=STAK 
90 CONTINUE 
80 CONTINUE 

CALL NRITTL9) ' ! | 

RETURN 

END - ' ' 

SUB ROUT I ME C ONTOU (TTT.LRU, LCW , NUMPL T, J ) 

COMHON/OPT I ON/ 1 M I N . I MAX » JMIN » JMAX , F I NTER » NUMV , CONTUR ( 50 ) 
LOGICAL*! FMT ( 5)/' F4 . 0 ) • / 

DIMENSION T T T (35.67) 

DATA NUMPT/O/ 

MUMP T = NUM P T + 1 
F INTER =0.0 
i m i n= i v iv: : 

I M A X = L C U ’ 

J K I N = 1 . 

J M A X = L R W 

CA LL SETGR 6(1. » ] . < 1 5. , 15. , 4) 

CALL SETSIZT 1 . ) 

GO • TO ( 10. 20 * 30 .40.40),U 
10 NUMV = 1 1 77 

CONTUR ( 1 ) =190. '" r : ••;77 : 7-7; 7- 7:! -77-- ^7:7"^ -77 77 

CONTUR (?) =200. ; 

■ ; COMTUR ( 3 ) = 2 1 0. 7 . 7 v 7^ j; V77y;, 7777 77 ; - : 7 : 777,7 7: 

; : %L- : : 7ic n fsTTTift >: rr-i/ ';!! ; ; '//y ? ;y- : : r. 77 .7 

CONTUR ( 5 ) =230 • T7U : • 77 ; 
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CONTUR ( 6 ) = 240. 

CONTUR ( 7 ) = 2 50 . 

CfiMTtlP ( P >=260. 

CONTUR ( O ) = 2 7 0 . 

CONTURl 10)=? HO. 
cnNTimui ) -?m* 

CAL L HORL I KM ' T EM P E RATtJ R E 

fin in so 

20 M l JR V = 13 
. CONTURl 1 ) 


POO. | ! 

CONTUR (2 >=250. I 
CONTUR ( 3 ) =300 . 

CONTUR ( 4 ) =3 50 . 

CPMTIJR ( 5 ) =400 . 

CONTUR ( 5 ) =450 . 

CONTUR ( 7 ) =500. 

CONTUR ( R ) =550. 

CONTUR t 9 ) =600 . 

CONTUR ( 10) *650 1 ' 

COMTIJR ( 1 1 ) =700 . 

CONTUR ( 12 ) =750. 

CONTUR (13 )=800. 

CALL HORL IN ( 'REFLECTANCES' 
GO TO 50 
30 NUMV= 1 6 

CONTUR (1 ) =5. 

CONTUR ( 2 >=10. ; 

CONTUR (3 >=15. 

CONTUR (4 >=20. 

CONTUR ( 5 ) =25. ( 

CONTUR (6 >=30. T 
CONTUR (7 ) = 3 5 . 

CONTUR (8) =40 . 

CONTUR ( 9 ) =45. 

. CONTUR ( 10) =50. . . 

CONTUR { 1 1 >=55. 

CONTUR 1 12 ) =60, : 

CONTUR ( 13 >=65. 

CONTUR ( 14 ) =70. 

CONTUR ( 15) =75. 

CONTUR ( 1 6 ) = 8 0 • 

CALL HORL 1N( 'CLOUD OPTICAL 
■■ GO TO 50 
40 NUHV-10 

CONTORT 1) =“50. 


criMTim ( 2 )--4o. 

CUNT UR ( 3 )=- 30 . 
cnNTim(4)=-2o. 

'CnhlTlJK ( 5 )=-l o rvi 

cnMTUR(A)=io. : T . ' 

CONTUR ( 7 ) =2 0 « 

CflNTUR ( R } = 30 • 

CONTORT 9 1=40 . : . 

CfiMTI JR ( 10 )=50. 

I E ( J , EO . 5 ) GO TO 45 

CALL HCtRL IN ( 'DELTA RATIO ( + L I OU I D- I CE ) ' ,25,7.5,15.5,-2,0) 

GO TO 50 

45 CALL HORL IN( ' DELTA RATIO ( +LIOUID-ICE ) WITH H20 VAPOR* ,40,7.5 
115.5,-3.0) 

50 CONTINUE 

CALL S ETS I 7 ( .50) 

CALL CONFRM ( FMT ( 1 ) ) L L 
CALL INDEX! 1) 

CALL LABEL I ( 21 

CALL UGRIO! FLOAT! ININ) .FLOAT! I MAX ) , 1, FMT,0» FLOAT! JHIM ) , 

1 FLOAT ( UMAX ) , 1 , Fj IT ,0,0) 

CALL Z D OFF ( T T T ,35, 6 7 ) 

CALL UNDEF! 0. ) 

CALL. FTLL(TTJ,35,67,1) 

CALL TRACER ( TTT.35 , 67 ) 

CALL FRMADV 

I F (NUMPLT . EO. NUMPT ) GO TO 60 
RETURN . 

60 CALL S ETfiLK ( 999 ) 

CALL ENDPLT 
RETURN 

END 

SUBROUTINE WRITT! J ) ■..-.'■'I 

COMMON/ VALUES /K 1 (3 5,6 7 ) ,T1 ( 35 ,67 ) , RR (35,67 ) ,Y1 ( 35,67 ) , 
1X1(35,67), D1 ( 3 5,67 ) ,E( 35,67 ) ,E 1 ( 3 5,67 ) , TBB ( 35,67) ,R4( 35,67) , 

1 L C, L R , LC 2 , L R 2 , L'k 3 , LC3,LR4, LC4 , P LOTI , PL0T2 , PL 0T3,PL0T4, PLOTS 
GO TO ( 10,20,3 0,40, 5 0,60 ,70, BO, 90 ) , J 
10 WRITE! 6. 1000 ) 

DO 15 X = 1 , L R 

WRI TE ( 9. 1100 ) ( RR ( I ,K ) , 1 = 1 , LC ) 

15 CONTINUE -•■■■ 

RETURN 

20 WRITE (9, 1200) 

no 25 K = 1 , L R ■ v : 
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.WRI T6(9, lion) (Tll!,K),I = l,LC) 

'25 CONTINUE : 

R I- TURN U' 

30 WRITE (U , 1300 ) 
nn 35 K=1,LR? 

WR I T K t .9 VI 3 00 ) ( RR ( 1 , K ) • 1 = 1. LC? ) 

35 Cl'INTI MtJE 
RETURN , 

40 WR I T £ 1 0 ,14(UU) 7 ■ 

on 45 K = l , L R 2 

WR IT E ( 9 , l 1 00 ) ( RR ( I , K ) ,1=1, LC2 ) 

45 CONTINUE ‘ 

RETURN / ; >' V 

50 WRITE (9, 1500) ! 

DO 55 K = 3. ,LR2 

WHITE (9. 3.600 ) ( El ( I ,K) , 1 = 1, LC2 ) 

55 CONTINUE 1 - - , 

stop . iz : •.'•••' : \ .•.•••• 

60 WRITE (9, 1700) 
no 65 K = 1 » LR3 

>IR IT£( 9 , 1100 ) ( TR8! 1,K) , 1 = 1, LC3 ) 

65 CONTINUE , ! u 
RETURN 

TO WRITE! 9, 1900 )' 

DO 75 K = l , L R 4 

WR I TE ( 9 , 1 100 ) ( RR ( I , K ) , I = 1 » LC4) 

T 75 CONTINUE 
• RETURN 

80 WRITE (9. 2000) 

DO 85 K-l , LK4 • . ; . 

WR I TE < 9 , 1 lOOT < RR < I , K ) , lv= 1 , 1.C4) 

85 CONTINUE i 9-.--/TT 

9 RETURN ; ' Ucv 

90 WRITE 19, 1500) 

"DU 95 K-l , LR4 ' VEST.'; ' 

WRITE! 9. 1600) ( El ( I , K ) , I = 1 , LC4 ) 

95 CONTINUE ' ' ••• 

STOP 

: . RETURN = 'UV9TT - 

1000 FORD A T ( 1 H 1 , 6 0 X , ' REFLECT ANCES 1 ) T v l 7-l/T 

1100 FOR N A T n HO , 3 3F4 . () ) / :T--J 

1200 FORMAT! IH1,54X, 'CLOUD OPTICAL THICKNESS') I 
1300 FORMAT! 1HU49X. ' RFI. FCTANCF.S RATIO R( 1 .61 ) /Kt 0.74) » ) 
1400 : FORMAT! I HI, 50 X, 'DELTA RATIO ( + 1. l!-UJ I D- 1 CE ) ' ) 
i 500 FORMAT (1 HI , 5 OX. ' DE LTA RAT 10 SYIsBfJl MAP..* •) 


o o o o o r> 


1600 . FORMAT ( M10.33A4 ) 

1700 F DR r AT ( 1 HI , bOX, ■ TEMPERATURE HR I OUT MUSS ' ) 

1900 FORMAT! 1 M 1 , 48 X , ' R EF I. EOT ANGE S RAT If) R ( ] .61 )/K ( 1. 14) ' ) 

2000 FORMAT! 1H1,4SX, 'DELTA R A T 1 0 ( + L I 0 U I D - I C fc ) WITH H20 VAPOR* ) 

H M D 

SUBKOUTl NE S PL I ME ( S » X , Y , M , 1 IV , T , I L , VL , I U* VIJ , E , U ) 

X , Y ARRAY OF TND. f, DEPEN. VAR. , S THE ARGUMENT TO HE INTERPOLATED 
T T PI F INTERPOLATED VALUE, w THE 0 1 OEMS 1 ON OF (X,Y) 

IM = 1 DETERMINES SPUME FlJiVC , I N= 2 INTERPOLATES SPLINE f-MC 
I L » 1 0= 1 PARABOLIC RUNOUT CONDITIONS AT LOWER t UPPER BOUND. 

I L , I U = ? 1ST DERIVATIVE < VL, VU) AT LOWER OR UPPER BOUND KESP. 

II. ,T 11 = 3 2ND DERIVATIVE (VL,VU) AT LOWER UR UPPER HOUND RESP. 
IMPLI CIT REAL*tt( A-I-UO-Z » 

D 1 M ENS I ON X ( 1 ) , Y { 1 ) , E ( l ) , U ( 1 ) 

GO TO (10, 40), IN 
10 CONTINUE 

: : N1=N-1 , .7 VU'V'.U' ; : v . V./P a 

B 1 = X ( 2 ) -X ( 1 1 
Cl = ( Y(2 )-Y( 1 ) ) 7 HI 
GO TO (12.14,16) , I L 
12 Eli 1 = 1 .0 

U( 11=0.0 * 

GO To 18 
14 Ed )=-. 5 

U( 1 ) = ( C 1 - V L ) / 2/ B 1 
GO TO IP. 

16 E ( 1 ) =0 

U( 1) = V I. / 1 2 

18 CONTINUE 

DO 20 .) = 2 » N 1 
B2=X( J+l ) -XT J ) 

C?=(Y( J+l 1-YLII )/B2 
B=X< J+l )-X( J-l ) 

D= ( C2-C 1 ) / R 
C=B1/B 
B1 = R2 
C 1 = C 2 

P=C*E( J-l )+2.0 

E( J ) = < c-l .0 ) / p ... : 

2 0 U ( J ) = ( n-C 4 u ( J-l.) ) / P 
GO TO ( 22. 2^. 26). I U 
22 CONTINUE . 

. ; E(N)=U(Nl )/( 1 .0-El Ml ) ) . 

, GO TO 2 8 . 

24 C2=VU-( YfA')-Y(Nl ) ) / ( X ( N ) -X ( Ml) ) 
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B ( N ) = < f,?/( X(N)-X(N1 ) ) -1 ! ( M 1 ) ) /(?, o_no+ : F ( Ml ) ) 

on rn ?h 

26 I* ( M ) = yi! / 1? . 0 
PJi CIIMT ( NllF 

nrv 3o kk~i ,ni 
K-N-KK ; 

F (K )=£ (K )*F ( K+l HIM K) 

T(v OBTAI N THF (l£R I VAT IVfcS AT THE KNOTS REMOVE C FROM THE 
F Tl L LOW TNG COWMEN T S C A R 0 5 » T H F N THE A RR A Y tJ WILL C DMT AIN 
THE DERIVATIVES OF THE SPl. I NE FUMCTI Oh AT THE KNOTS 
• R 2 = X ( K -fc 1 ) - X ( K ) 

II ( K ) = ( Y ( K+ 1 ) - Y ( K ) )/*2-R?*(E(K)*2+b(R+l) ) ' 

30 CnisITTWOF . 

; R ? = X ( N ) - X ( H 1 ) 

TJ ( N ) - ( E ( Ml ) +2 . ODO*E ( N ) ) YB2 + ( Y ( N ) - Y ( hi > ) / B2 
RETURN Y ■ 

40 ] F ( X ( 1 ) VGT . XI N ) ) GO TO 50 

IDIR = 0 . . .'V- 

MLB-0 

■ , MUB = M . 

GO TO AO 
50 I D I R= 1 

MLB=M ’ : 

60 IF ( S .GE.XI NUB+IOIR ) ) GO TO 100 
IF < S.LE.XIMLR+l-IDlR) ) GOTO 110 
ML = ML B 
: MIJ-MUR 
GO TO HO 

70 IF ( I ARS ( MU— ML ) « LE « 1 ) GO TO 120 
8 0 M A V = ( ML +HU ) / 2 

IF ( S.LT.X(HAV) ) GO TO 90 
ML = MA V 
GO TO 70 
90 '.Mil— NAV 
GO TO 70 

1 00 MU=MUF + ?*T D I R . v 
GO TO 130 

110 Ml l=M |. B + 2 * ( 1 - I 0 1 R ) 

GO TO 130 

120 MU=kU+jniR . 

130 T=( B ( flJ-1 j*( ( X ( MU ) -S ) **3 ) + F ( MU) *( ( S-XIMU-l ) )**3 ) + 

1 ( Y ( f'H-3 )-F(MU-l )*( (X ( Frtl ) -X f MIJ— 1 j )-*?) ) - ( X ( MU ) - S ) + 

2 ( Y(MU)-E(MU ) * ( ( X ( HU ) -X I MU- !))**?))-< S-X ( MU-1 ) ) )/ 

3 ( X ( MU )~X ( HU-1 ) ) 




wf WfJSKKaCSVfST-A 
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JCI Pi om 
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COOOOIOC 
COO CO 150 
COC OC 190 
CCC 00:195 
C CO 00 <50 C 
CCOf 0500 

CC0CO49Q 

COC 00 500 
COC CO bOC 
CCC CO 7 00 
COOOOBOC. 
C CO 00 900 
COC 01 coo 
CCOCi 100 
C00012Q9 
COC C 1 50C 
COO 01 400 


UNIT CN PRINTER 
OF THE TAPE CONTENTS 


// EXEC LINKGG. REGI ON. GC=*75K 

//LlNK.SYSLlri DD DSN = S Y.S£ . WCLFTEST • D 1 SP=SHR 

//L INK. CO J£C r ISO *\ 

INCLUDE LGADLI Bl ZBM JMR92 ) 

//* UNIT c 15 THE DEBUG AND GENERAL MESSAGE 

//* UNIT 9 CONTAINS THE LISTING 

//* TP 1 32 IS THE INPUT DATA TAPE 

//GO.pTObFOOl DO SYSOUT=A»OCB=( RECF M=V0 A » LRE CL=1 37 . BLKS IZE=72o5 ) * 

✓ / SPACE=(CYL,( 7, 5) > 

/ /G C » F T 0 9 F 0 p 1 DD S YSOUT = A * DC £= ( RECF M=VBA , LR E CL= 137. BLKS I ZE= 7265 )» 

// SPACE =<CYL •( 15.5) ) ' 

//GO. TP 192 DD UN 1 T=240C-9 . DCB= C RECF M=U . BLKS 1 Zc = 32000 ) • LABEL— ( »BLP) . 
// VOL=SER=L0045 

//GO .PLOT TAPE DD DCB = ( . DEN = 1 ) • L A3EL = ( tBLP* » CUT ) » UN I T= (7 TR ACK . . DEFER I, 
// V0L=SER~L0C4o 

//G G. 5 YSU DUMP PD 3YS0UT=A ■ 

//GC.UATA5 DD * 


.*** END OF MEMBER *** 


17 RECORDS PROCESSED. 
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£ i\i i|5 >[s i\( 5 ;: i|c Jjc 3); i\< iji i[i >;« ijt s;c ?Jc Jji 5)5 % # s;< 3 ;; ;|c 5): 5)5 5)5 5,5 5)5 3jt s*t # * * $ s;< # 5)5 * 55 , 5 . 3 ): sjc i): 5 ;; ;jc 5)5 >|e s)c $ ;J: 3)5 5)c s)? 3*5 >): 3)5 3): # sjs ?); :Jc 3)5 

C THIS PROGRAM WAS WRITTEN BY F. MI LAST OF CSC FOR TASK 092, 

C SKYL AR « UNDER CONTRACT NAS-5-1 199V IN MAY, 1974. IT UTILIZES 
C SU8R0UT INFS TEMBRH. REFLHl, CLUTHK * SR L I ME , CONTOU. 

C USING THE READ PROGRAM ALREADY DEVELOPED FOR THE S19? DATA, 

C THIS DATA SURVEY PLOTTING PACKAGE, IJUICKPL, SELECTS 

C SUBSETS OF THE DATA FOR WHICH REFLECTANCE, RATIOS OF REFLECTANCE, 

C OPTICAL THICKNESS, BRIGHTNESS TEMPERATURES AND OTHER SIGNIFICANT 
C PARAMETFRS ARE CALCULATED AND DISPLAYED THROUGH A CONTOUR PICTURE . 

C USING THE WOLF PLOT PACKAGE. CONTOU WILL BE USED TO DISPLAY THE 
C OUTPUT OF .ONE OF THE FOUR CHANNELS WHICH OUICKPL HAS ANAL Y7FD. . 

C CONTOU CAN PROCESS ONLY ONE CHANNEL PER RUM BECAUSE OF CORE 
C RFOUIRFMENT DIFFICULTIES AND, BECAUSE OF THIS, CONTOU WILL ONLY 
C DISPLAY A 200X200 AREA. A COMPLETE PICTURE WILL BE FORMED 
C THROUGH THE ASSEMBLING OF OVERLAPPING 200X200 AREAS, 

Q 'l* »[' J|! »Jv 5p ,[» ijs 3,5 5, A «]{ 3,5 3,5 I|J jjj 3)5 3,5 j|» 5j« »j( <|! 5,5 J,« 3,5 »|« jj» *J» } ( « J ( » 5,5 3,5 3,5 3,* 3,5 5,5 3,5 3,5 3,* 3,5 3,5 3,£ 5,5 3)5 3). 3,5 3,5 5,5 5). 5,5 3)5 5)5 3)5 3,5 5,5 ^ 7,5 5,5 5,5 *J» 5^5 3)5 5,5 

c V. 

Q «'* *|S jjc 'i' Sj< 3|S J|S *J> j[? •'* Jjc 3|1 *!« »[* 'i* 3jC 1 1' •!' jjs J|C 2jS *Jc *,* ij- >|C 3[t jJC. 3jS 3j* 3[5' '5jC' S|? iji Sj! jj! SjS jjc .3jC J|S 3jC ?[t: «!• •!* Sjc JjC SjC. S|> «j* 2[C 3 )• * |3 ijc 

C THE VALUES WILL BE PASSED TO THE OTHER SUBROUTINES THROUGH THE 
C •COMMON* NAMED 'VALUE' . LR3, L C 3 TELL HOW LARGE THE ARRAY TBB 
C IS. ALSO PLTTEM, PLTREF , PLTCLD ARE LOGICAL VARIABLES ARE 
C EITHER .TRUE. OR .FALSE. DEPENDING ON WHAT CONTOUR THE USER 

C HAS REQUESTED. THE SOLAR ZENITH ANGLE THAT WILL BE USED IN THE 

C CALCULATION OF REFLECTANCE WILL BE STORED IN ' ANG' . 

v# V* ^ sU ^ %U V* ^ V# *0* ^0> O# vV. .%*<• %V O/ O# Of ^ O# Oj Or O# Or 0/ 0/ Or Or Oi O/ O# O/ Or 

*V 'I' 'l' '»• <•,, 'I' 'I' 'I, 'I' 'I* «•)* ^ *1' "I* f|* *1* »,» v f|* 'i* 'I' 'I* <*1* #,» <>,' »|» »|> 5|» »|* <v >,» »,« *,» *,•* *,V *,«i *,! -v» »)V »,» /,» fj* f,. «,* »,* ,j» »,» ,,, *,5 f,« *,V »,5 *,» 

C ■ -t T' ■ ' ■ ' ■ ' ' *'■* ■ ' 

COMMON/ VA LUE/ LR 3 , LC3 , T RR { 200 , 200 ) , PLTTEM , P L TRE F , PLTC L D , ANG 
01 MENS I ON SCAN ( .1098 ) , I SCAN ( 109 8 ) , NV AL ( 3 ) , P I XEL ( 1036 } 

INTEGER*? ISCAN2I2194) , DEG, AMIN, MSEC 


C* 

C 

C 

C 

C 

c 

c 

c 

c 

C 

c 

c 

c 


>i‘ V '!' V 't* V ?i' »|* '!* 5,. 5|5 3|» <,5 3,5 5,5 5 1 ,. 3,5 3,5 3,5 3,5 3,5 5,5 3,5 3,5 3,5. 3,5 3j5 3,5 3,5 jjt 3,5 3,5 3|c 3j5 3,5 3j5 3,5 3,5 5,5 j}5 3 t 5 }J; 3jc 5|s 3j5 3,5 3)5 3,5 5,5 S)t 3|c 5j5 5)5 3)5 3{5 5)5 3,5 ^5 3)5 3)5 3)s 


NAMELIST 'INPUT* WILL BE USED TO INPUT THE DESIRED CONTOUR, 
NUMBER, NUMBER OF PIXEL, STARTING NUMBER LINE, AND STARTING 
NAMELIST NCHAN!=CHANNEL NUMBER 

NUMP 1 T =NUMBER OF PIXEL POINTS TO INCREMENT BY 
- - r I PI XEL- STARTING PI XEL 

I STL IN = ST ARTING LINE 
PLTTEM=TEMPER ATURE BRIGHTNESS PLOT 
PLTREF -'REFLECT AN CL PLOT 
PLTC LD-CLOUD OPTICAL THICKNESS PLOT 
THF ABOVE NAMELIST HAS DEFAULT OPTIONS: NCAHN1=7, 

MUMP I T-l » I P I XEL = 2 , ISTLIN=1, PLTTEM= . TRUE . , PLTREF = . FALSE. , 
PLTCLD=. FALSE. . 


CHANNEL 

PIXEL. 


O* O# O; O/ Of Of >V Oi Of Of Of O/ O# Or O/ O* O# Or 0/ 0»- O/ Or Or Or Or Or Or Or Or Or « 1 / Or O/ O# Or Or Or 0<* Of Or «^r Or Or Or %>/ %*# Or .« 

^ 1 % r|% ^ ^ 0|% r|«, rrj% ✓!% ^ ^ * f v r^^ r,% ^ **^ ^ <V V V V ^ ^|*k -J** ry. rp ^ 


NAME LI ST/ INPUT/ NCHANT. NUMP I T , NUML I M , IP I XEL , I STL IN, 
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on on o no 


1 P L T T E M « P L T R E F « P L T C I. D 
LOGICAL *4 PI.TTFM , PLTKEF .PLTCLD 
DATA KCIUIMT /()/ 

DATA l STI.IN/)./ 

DATA IP! XEL/?/ 

DATA MUMP IT/1/ 

DATA MUML I N/ l / ' 

DATA MVAI./O, (),()/ i . ;i. ••■V : y 

DATA RADI/ .017453/ 

FOU I VALENCE (NVAL (1 ) , NCDND ) , ( N V A L ( 2 ) t NHfJ US ) , ( NVAL ( 3 ) , NS CAN ) 
E DU I VALENCE ! SCAN! 1 ) , I SCAM ( 1 ) , I SCAN?! I ) ) 

ECU I VALENCE ! I SCAN?! 50 ) , DEG ) ♦ ( I SCAN? (5 1 ) , AMIN) , 

1( I SCAN? ( 5? ) t OS EC ) •' 


FOU I VALENCE (PIXEL! 1 ) ♦SCAN<62) ) 

DATA NCnUNT/O/ 

DATA NCnUl/O/ 

DATA LASTRW/O/ 

DATA LASTCL/O/ • V - 

PLTTEMp. FALSE. ' 

PLTREF=. FALSE. 

■y-y.. PLTCLD = . FALSE. 

s|c sfe ;{: 5j; sjfr # sj; >;? ;|t ;Ji ^ # sjc # ?’,= sjs ;|c s;c ajt >}e # >;< ijc s|: ^ ijc $ # i|c ;‘c a|s sfc ;|£ sjc *;;?;« ;‘,c 

READING IN INPUT CARDS ‘NAMELIST* 

%•# **# v# ^ ^ *U <»•/ ^ %i# »■</%*> 41 # *i# ^ v# %*# o# *•# 4i> o# %■# *•# i»i# %*# 

^ #|* f|V #|> #|4 »)« #1% #|V ^ #1% ^ #|V #|V #J% #!% *)% ^ #|* #1% #|« ^|4 #1% #1% *1* #|S #|4 #1% #|V #|» #|* #|> f|% rj* ^ #|* 

READ! 5. I NPUT ) y 

%•# O* 4i*# 4^ %*# S*> V*# *♦# *l«» "O# 4^ V# %•# it # %l# *1#. -^1# Or %*#; 4*r «*# **# O# O* «l#. %l# -■’>•# O/ Otf O# . 0 ^ Or «(# 

^1' *t % ^ ^ v V * 1 * * 1 * ^ ^jv ^ T V # C # i % »p +C* V f l % ^ V *l % n* .fl?- f| v 'i» ^ ^4 #|% * # v #j«» *»|'k #|% #|> # f 4 #j* r>j> #|V #f% J|*- #|* ^|4 # t % #|% #|> #,h 

CHECKING WHAT CHANNEL HAS BEEN REQUESTED AGAINST CHANNELS 15, 10 
THESE CHANNELS ARE NOT ACTIVE CHANNELS. 

4^ Orf %U Of 4*# 4 U O# %l# %*# *♦# %•# o# 4 U O# ^*# O# %•# *1# 4*^ %V v'r k'r **# Or 4^ O^ O# ml# «,!# % 4 # %<# %*# >*r 4<r 4^ «)# 0« O# «J# **# %»# «l# %l# «.l# <«<# vl# «!# Or O# V# Or Or O# Or Or 

# | % ^|4 ^4 v ^| % r§4 # 1 % #1% # 1 % #jX #,% #j4 ^|4 r { 4 # 1 % r^% r^4 #|H rj4 #|V #}■» ^|% #|% #j% rp #|% #|4 # 4 % r|% r^ /j4 #|> #j4 r f % rj% #|^* #j% #,% r ( 4 r-j* r|4 r*|4 ^4 #1% #|% r^» f|4 

IF! MCHANT » E Q . 1 5 .OR . NCH AN 1 . EQ • 16) GO TO 90 
KT= I STL I N • 

I F ( K T . L T . NUML J N ) GO TO 5 
I M=KT /NUML I N 
KT=KT- I NvNUML I N— 1 
5 CONTINUE' 

LR 3=0 
L C 3 = 0 

10 CONTINUE 

mcount=ncount+i 

3 p '!» r r +r- 5 i' 

C CALLING STO? READ PROGRAM WRITTEN BY M. MACK OF CSC FOR TASK 
C 09?. SKYLAB, UNDER CONTRACT NAS-5- 11999. 

C * v i|s V :X sj* *!*. >!= si: # Ji5 ; l : >'f sj< ❖ :;t s|« * * * * * si< if :;« sjs >!: if 5|t ^ if if ft ;;t j f * # s;t # ^ # fi if >f * if * ;|c if if K'- sit sit 

CALL RD19?( SCAN. NVAL ) 


REPRODUCIBILITy OF TH 
ORIGINAL PAGE IS POOR 


8 ••] 
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IF (NCOND, En, 1. )G0 TO 70 
I F( MC.nwn.fiD.? igo to ho 

I F (1 SC AM? ( 4) . LT . I STL I M ) FD 'TO 10 • 

I F ( I SCAN?! ) ) . FO.NCHAM L ICO TO 20 
GO TO 10 
20 CONTINUE 

>1% rfi <»|> *|C 5 |C ^ . 5 |t J^v rfi ?|C #,% #|C 5 |C «^C 5 ^ f t t >,h f,t * ( s *p> <j% 'p *p> /o *\ % V ^ 0 t % V *i v # r* V *i % 'i 1 V "V* # * % # i* V v v # i' T V V ^ # f % 

C READING AND SETTING UR THF DISERED NUMBER OF LINES FOR ARRAY 
C TRH (?00 LINES FAX). 

Ncnui-Ncnui+i 

I. INFMl=1SCAN?(4I 
LT=L I MEN1-KT 
NROWM=MOD( LT *MIJML IN ) 

IFIiMUMLIM.NE. l.AMD.NROWM.NE. 1 )G0 TO 10 
NR 0W1 = ( ( L I MEN I - I STL IN I /NUN L I N ) + 1 
/: ; ;V: if(lastrw.gt.?oo)go to so 0 . 

U LASTRW = NR0W1 
NCOL 1=0 

f % Jr Jr Jr Jr Jr Jr Jr Jr *lr Jr Jr Jr Jr 'Jr Jr Jr Jr Jr Jr Jr %*r Jr Jr Jr. Jr.Jr Jr J* Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr 3 ^r\Jr Jr »•# Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr 
| 5 |% #1% #|C *|> ?jS * t C rp 4 *{^ r)+ fp /p -p rf* *|«- #(% ^ fp <»p fp <p /^V *(*■ -*|* 'p r^y ^p fp #p #p #p #p fp /p V # P # P # p rf P ^P # |> 'p *1* # p ^P # p # p # p 'P # P # P # P 

C READING IN THE DESIRED NUMBER OF PIXEL POINTS INTO ARRAY TBB . . 

C (200 PIXEL P0 1 NTS MAX) . . . .... 

Q>^^^:s,Vi^i^^s^^^^3,V^**#s^«s^s,%s:s^s;ss?«**sSsS^5?«*v*^#5r5rSi''5! 5 s!s’r*».' ss ; i5 ! s ’r s .*’.' s J S5 !' s ! Js i {s i 8! I <5 ! t v*vSi««5i*vJ!f 

DO 25 N = I PIXEL. 1036, NIIMP IT : ■■■■ ; \' : ' '••'•• 

■: NC0H = MCnLl + l 

LAST CL = NC0L 1 

I F ( MOOLI . GT . 200 ) GO. TO 25 
TBB ( NCOL 1» NR0W1 ) =P 1XEL ( N ) 

25 CONTINUE 

C O> .U •.'» *u *'<• »t> «J, r*. ki, v>< >,r< j. «(. J# »•>' *v> <i« V. •»'* »*<» .*» »•* »<* *«* >'» «.«» ->>■«• o. .%•«: »*«* .♦* »** »•/ « f « s*. *!; ^ 5 »* «*» j'j »‘> i’i lie i!: p? ;*r 5^ »*. 3*. 3J* ;Je »'r 

( #p ^p #p #p #p #p #)« <p #1% *|V fp #|% rp #j% ^ ^p #p ^p ^|» #p ^p ?p #p rtf* #p ^p #p #),* *1* # p # p V ^ ^|> fp # |' ^p *| % *p # p ^ # p *1* *<* V ^P # P *1^ 

C CHECKING LR3 AND LC3 TO SEE IF GREATER THAN 200, IE SO SETTING 

C THE ARRAY TBB • TO 200X200. 

^ jjc jjs 3^3 3j3 «'■ jJ* 3J3 jjt 3,3 3{3 /,' 3,3 .'I* J|* 3,3 jjc 3j3 ?|» jjc 3|C J,S fijf 3{£ «j« 3|C Ijs 3,! 3* 3,2 3|! 3|C 3 ( S 3,3 3,3 3,3 3jt 3,3 'I* 3,3 3,3 3,3 3,3 3,3 3,3 3,3 3,3 3,3 3J3 ^3 r.* *,■ *,3 3,, ^3 v V 3J3 ... 

LR3 = LASTRW .. ' 

IF ( LASTRW . GT. 2 00 ) LR 3=200 
l.C3 = L ASTCL 

IF(LASTCL.GT.200)LC3=?00 

C Jr Jr Jr Jr ^ Jr Jr Jr <»U Jr J+ %•# %*# 0 «* Jr Jr Jr Jr Jr «t r Jr Jr %*# Jr Jr X Jr Jr Jr Jr Jr Jg Jr Jr Jr Jr 5V Jr Jr Jr Jr O# Jr Jr %*# Jr *|p J* Jr Jr •** 

#p #p ^ #|« #p ^p v ^p rf% #p #p #p #p /p r^% rp #i% fp yp r^% >)% /p #|<* ?p rtf* rtf* ^p Jp ry^ #p #p ^ ^p ^p ^p ^p ^p ^ ^ ^p ^ V ^ O ^P 

C CALCULATION OF THE S0L0R ZENITH ANGLE 

G Jr Jr Jr Jr a*> Jr Jr Jr Jr %\r Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr Jr %lr Jr «U Jr Jr Jr Jr Jr Jr Jr Jr Jr j’j Jr Jr^ \V %*# Jr Jr J* Jr Jr O- %V jJj Jf 

)p ^1** «p *j% rfi ^ /p r^% rf? #p ^p #p #p #p ^ #p yp ^p fp rtf, #p #p #p <p *1* fp ^p #p *p #p ^p ^ fp ^p ^ ^1^ fl % V ^p ^P 'p V ^P ^P ^P ^P ^1' # P 

K C 0 U NT = K C 0 U N T + 1 
I F ( K COUNT . GT . 1 )GU TO 10 
: ANGG=0EG+ AM I N/ A0 . +0SEC / 240. 

ANG = ANGG^R AD I 
GO TO 10 
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on no on 




60 . CONI 1 t\!UF 

WR I TE! 6, 3000 ) NC (HJNT , NCOU 1 , L R 3 , L C 3 
W R ] T E ( 6 , INPUT) 

%V kli O# J# Ji O# *1* 4^ 4,»# J#> *1# «U %*«< ^1* aC J# J# ><# %l> V/ 4^ 4^ %-tf 4 f # 4*# %V «U 4^ 4^ 4 { * Of 4^ i l # 0«- 4^ 0> %■> 4^ Of 4^ Of 4^ w 

V|>: «|> ^4 P|V fj4 #|* #|« fp «|4 *|> *|4 #|4 #|4 4|4 /|« # t 4 #|4 ^|4 I»|4 /p #|4 ?,4 #|4 »»|4 #p f|4 f|4 #|4 f|% *|% -p #|4 *|% ^|> -*|* *>**♦* #|% #|4 #|% ^ <|* *** *1* *|> *» % l % 

CHECKING LOGICAL VAR I A RLE TO SEE IF THIS CONTOUR PLOT WAS 
REQUESTED. IF .TRUE. SUBROUTINE TEHHRH WILL BE CALLED, IF 
.FALSE. SUBROUTINE RFELE1 WILL BE CALLED. 


IF! PLTTEM ) CALL TEMHR.H INCH AN 1 ) 
I F (PLTREF ) C ALL REFLET ( NCHANI ) 
I F ( P L T C L D ) C A L L RE F L EUN C H A N 1 1 
STOP 


70 write (a. iooo) ;: ■ .. \=^-= ? -:'- >v V 

STOP 

BO WRITE (6, 2000 )NC0UNT,MC0U1,LR3,LC3 
WRITE! 6, INPUT) 

I F (PLTTEM )CALL TENBRH { MCHAN 1 ) 

IF! PLTREF) CALL REF LEI (NCHANI ) 

' STOP 

90 WRITE! 6,4000) NCHANI 

STOP • ; : 

1000 FORMAT! 1K0, 10X, 'TAPE ERROR 1 ) 

2000 FORMAT (1 HO , 1 0 X , ' END OF FILE' ,5X, 'NCOUNT= • , 16, 2X, 'MCOUl=' , 15, 2X 
1 ' L R 3 = 1 , I3,2X. ' L C 3 = ' . 13 ) J : 

3000 FORMAT! 1H0. 10X, 'CALL REFORE END OF FILE' 'NCOU NT - ' , 16, 

1 'MC0U1 = ' , 14, 'LR3=' , 14, ' LC 3= ' ,14) 

4000 FORMAT! 1H0, 10X, ' PLEASE CHECK CHANNEL THAT YOU REQUESTED, 

I CHANNELS 15,16 ARE NOT ACTIVE' ,5X, • MCHAN 1= • ♦ I 3 ) 

2 'NCHANE2- ' 13 ) 

END- i 

SUBROUTINE TENBRH (INCH AIN 1 ) 

COM MON/ VALUE/ I.R3 , L C 3,TBB ( 200 , 200 ), PLTTEM, PLTREF, PLTCLD 
L0GTCAL*4 PLTTEM, PLTREF, PLTCLD 
DIMENSION CHANNL! ?1 ) 

DATA CONE /3 . 74 I 3E+04 / 

DATA CTW 0 / 1,43 B « E + 04 / 

DATA PI/3.1416/ 

DATA CHANNL/. 540, .540, .585, .5B5, .645, ,645, .720, . 720, 

1 .830 ,.830, 1,650, 1.650, 2. 225, 2. 2 25,. 000, . 000 ,12, 500 , 

2.485,1 .00 5,1.140,11.350/ 

DO 10 1=1,21 
WAVET=CHANNL ( I ) • 

I F ( NCHAN3 . EO. T IGO TO 15 , 

10 CONTINUE 


ffiSKSK,? 
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] S TTT-P l :*WAVET**5 
nn ?.o i = i , LC3 
nn 3 n j=i ,LK3 , 

TF(TBR( 1 . J ) .LE.n. )G0 TO 25 
T A B = 1 . + ( GONE / ( TTT*TBB ( I , J ) ) ) : : 

T A A = W A V E T *A LOG (TAB) 

T B B ( I t .) ) “CTWO/TAA 
GO Tn 30 
25 T B B ( T , J )=0.0 
30 CONTINUE 
20 CONTINUE 

CALL COMTOU /' 

R FT URN . ; '"1 T: ; \ 

END 

SUBROUTINE REFLEKNCHAN1) : C ■ 

C ' ■ : 2 ; ' ; , "ET;.' ' ' ; ' -X-2 : - 

C THIS SUBROUTINE WAS WRITTEN BY F. MILASI OF CSC FOR TASK 092, 

C SKYLAR, UNDER CONTRACT NAS-5-11999 IN APRIL, 1974. SUBROUTINE 
C RFFLF1 TAKES MATRIX 'A', WHICH WAS PASSED FROM THE MAIN 
C PROGRAM AND WAS FORMED FROM NCHAN1. 

C THIS WILL BE TRANSFORMED INTO REFLECTANCES BY THE MULTIPLICATION 
C OF EACH ELEMENT BY THE FACTOR' ( P I /FO*COS ( ANG ) ). • THE 
C RESULTING MATRIX 'Rl' WILL RE MULTIPLIED BY 1000. (TO ALLOW 
C FIXED POINT FORMAT) AND WILL RE PRINTED OUT BY SUBROUTINE WHITT. 





s*r Or Jr J# Jr Jr Jr Jr Jr J# Or »l# Jr Jr Jr Jr %lr Jr Jr Jr Jr «lr Jr Jr- Jr Jr Jr J# %*r %•# Jr Jr '*r Jr Jr «.♦> Jr *»*r *^r *lr. Jr Jr %*r Jr Jr Ji« Jr Jr Jr •* 

* 1 * r^ rj> r ( « rji. r ( % r^ r^*» rj'* #|% ^ r,% r^ rj^ #,> r^ #|% r^ r^ rj> rj% *j% rj* r^ r^ r^ r^ r^ r^ ^ rj% rj% #|<* r|% r ( > r^ rjS r^ r,> ,f|% rj» rj% rp rp rj> r^ r|\ rp^ rjW #j* rp rj * r 

C Jr «lr Jr Jr %lr s'r Jr Jr Jr %»r %*r Jr ^>r Jr \*r Jr Jr Jr \ ( r \>r J«- %t# Jr %*«r Jr Jr -*>r Or Or Jr 4>r Jr Or Or «lr ^*r Or Or Or Or O# Or O* %^r i*r %*r Or Or Jr *•# Or Jr %*r Jr Jr V# Or Jr Or O 

rp% r|% rj*. rp^ r,\ « ( % r,> yj% rji, r,^ r,% #j% r^ ^ rj% rj% r^ rj% #|% rp% rjS r^ rp*» rp r ( % r,- #j% r^ /|% rj% r^ rjv r ( « r,% r ( ** r^ <j% r f % rp« r,s r^ rj*- r f % rp rp« #|* rp rp% rj% rjn r^ rj» r^ r-p» r»p >,% r 4 * rpv rp% r^ r; 

COMMON/ VALUE /LR3 . LC3,TRR( 200,200 ) , PLTTEM, PLTREF, PLTCLO, ANG 
C 

^ ?i* 3|t 3|» *[* jJ{ J|* »[' 3}* »[» jJj »i» jjc jji j[» »|! »|s 3,C s}c ?J» »,1 »,» *[> 3jC 'J. »[* /{t 3jJ <J( 5jc Jj-J »[* »,« jjl J,» v V 3|» Jp 3,» 3j5 J|' 3jC ?jS 5|C J ( > 3,C 3,C »j£ Jjt 3,t 5 t » »(C » ( I ?J? ?,? 3 t C J, 

C ARRAY FF IS THE ARRAY OF IRRADI ANCE DATA ASSOCIATED WITH THE 
C AVERAGE WAVELENGTH FOR EACH ACTIVE CHAMNED. THESE VALUES WERE 
C DERIVED THRU GAUSSIAN 'AVERAGING* OF DR. THEKAKARA IRRADI ANCE 
C DATA USING CNTHGS92. 

C MOTE: THE FF IRRADI ANCE DATA GIVEN FOR THE 15TH AND 19TH 

C ACTIVE CHANNELS ARE MERELY DUMMY VALUES. SINCE IRRADI ANCE 
C DATA ASSOCIATED WITH' THE WAVELENGTHS REP US ENT ED BY THOSE 
C CHANNELS ARE EXTREMELY SMALL AND INSIGNIFICANT, NO 
C CALCULA.T USING THEM WOULD BE SCIENTIFICALLY MEANINGFUL, 

C (ACCORDING TO OR. CURRAN OF GSFC). SO, AS THESE CHANNELS 
C WOULD N EVER BE USED. DERVATIOM OF ACCURATE IRRADIANCE VALUES 
C SFFMFD POINTLESS* 

p Vr J> Jr Jr Jr .J# Or %V Jf Or Jr Jr Jr Or Or Or *lr. %*r Jr Jr Jr J/Vr^ l r ^»r Or Jr Jr Jr #V Or sir Ji Or s^r %*r Of Jr Or Jr %*• Jr Or O* s*r Vr Jr Jr Jr Jr Jr %lr s'r Jr Jr Jr • Jr il# J/ Jr 

*r* o' o' o' o' O' o' o' O' o' o' o' o' v O' o.' o' o v o' o' O' O' O' O' ovo' ^ v O' o* o' o' o' o' o' O' O' O' o % o' O' o' O' O' o' o' o' o> o' o' 'r* O' T o' ^ O' o' o^ O' or o' o' 

LOG I CAL* 4 PLTTEM, PLTREF, PLTCLO 

REAL * R F F ( 2 2 ) . F 0 . : ; . \ 


1-7 


DATA Ff-yn. 17.8448800,0. 1784488 00,0. 1 704S64p0,0. I 704 564 DU , 

10. ljSPAAb VDOiO. 1 67060 700,0. I 3 100 74D0,0. 131097400,0.1 0 3436100, 
10. 103436 100 , 0.0770/4900,0. 07 30 74900 , 0 . OOB 109H00 , 0. 00 B 109800 , 

10.000000000 . 0 . 000000000 . 0 . 00000000 .0.1 999H9 100,0.076790000, 

10.0 64935 700. 0. 00000 0000.0. 172363900/ 

7 DATA P T / 3 i 14 1 6/ 

DO 5 M= 1 ,22 ; ! , 

9 : V FO=FF ( M ) ... . . ;,r:\ '■ 

IF(M.E0.MCHAM1)G0 TO 7 

5 CONTINUE 

• WRITE! 6., 1000 ) NCHAN 1 

STOP ■ V • ' 3; 

7 CONTINUE 

7- C A = c n S ( A N G ) . G \ ; 

F = E U * C A : 

FAOPI/F 
DO 10 I = 1 » LC3 
DO 20 J=1 ,LK3 
IF ( TBB (I , J ) . LE . 0 ) GO TO 15 
TRB( I , J)=TBB( I , J )*FAC 
GO TO 20 
15 TBB ( I , J ) = 0 . 0 

20 CONTINUE , • . 

10 CONTINUE 

I F ( PLTCLD) CALL CLUTHK 0 

DO 30 L = 1 , 1. C 3 

DO 40 N= 1 , LR3 

TBB { I. ♦ N ) = TBB ( L ,N ) *1000 . 

40 CONTINUE 
30 CONTINUE r 

IF (PLTREF ) CALL COMTOU 1 I 

STOP 

1000 FORMAT! 1H0, 1 OX, 'NCHAN 1 DOES NOT AGREE WITH FF ARRAY', 

15X, ' NCHAN 1 = ' ,13) 

END 

SUBROUTINE CLUTHK 

COMMON/ VALUE /LR3,LC 3, TBB ( 700,200 )» PLTTEM, PLTREF, PLTCLD 
D I MENS ION X ( 1 0 ) , Y ( 1 0 ) , F ( 1 0 ) , U ( 1 0 ) 

LOGIC AL*4 PLTTEM, PLTREF, PLTCLD : 

REAL *8 S,X, Y.TX, VI. , VU , F , IJ 

DATA X/0 . ,0. 038,0.092,0. 248,0. 422,0.607,0.759,0.848, 

10.892.0. 920/ 

DATA Y/0.,1.,2.,5., 10. ,20-. ,50. , 100. ,200. , 500. / 

6 M= 10 
II. = 3 


REPRODUCIBILITY OP THE 
ORIGINAL PAGE IS POOR 







111 = 3 

V L = 0 » 

VU=0. 

CAU. SPI. I NE ( S*X».Y.vN, l.TX, IL.VL, IU,VU> FtU) 
nn in i. = i « i. c 3 
DO ?.a H = l,LK3 

S=TKB(L*M) 

TX=0 . 0 1 < 

IF! S • I. F . 0 • )G0 TO IS 

• CALL SP.LTNE(S.X,Y.Mf 2,TX, IL.VLt iUtVUtFtU) 

15 TRB(LtH)=TX 
20 CONTINUE 
10 CONTINUE. 

CALL CONTOU 

: RETURN ' . . ■' -V }■ ; 

END ; .'Vv. v ' — 

SUBROUTINE CONTOU 

COMMON/ VALUE /LR 3 » LC3 ♦ TBB ( 200 « 200) yPLTT £M» PLTRE F » PLTCLD 

' ■: ' : : I • , : ' ■. 

C 0 M MON /OPT I ON/ I M T N . I MAX ♦ JM I N » JMAX » F I NTER ♦ NUM V ? C OM TU R ( 5 0 ) 
C DM M ON / B U F * / B U F F E R I 460 0 ) ■ 

LOGICAL 5 ?! FMT ( 5 ) / 1 F4 . 0 ) ' /• 

LOGICAL *4 PLTTEMtPLTREFf PLTCLD 

FINTER=O.D 

I M J N= 1 

I MAX=LC3 

JM I N= 1 

JMAX=LR3 

CALL NOSTAE 

CALL PLOT ST < 100 1 » 4 ) 

CALL SETSIZU.) 

I F ( PLTTEM ) GO TO 10 
I F ( PLTRFF )G0 TO 20 
I FT PLTCLD ) GO TO 30 
STOP 

10 NUMV*?A I O 

CONTURI l ) = 2 7 8 . , f 
CONTUR (2 ) =279. i : 

CONTURI 3 )=280. ! 

CONTUR I 4 1=2 8 1 . 

CONTURI 5 )=2B2. 

CONTURI 6 ) =283. ... . V' - ■ ■ ' . 

CONTURI 7 )=284. 

CONTUR I 8 ) =285 * 1 ■ 




CONTURt 9 1=286. I I | 

CONTURt 10=287.1 

CONTUR ( 11 1=288. • ^ 

CONTORT) 2 1=289. 

C DMT UR ( 131=2 90., 

CONTUR! 14) =29] . I . : 

CONTUR ( 15) =2 92.. , 

CONTUR ( 161=293.' | 

CONTUR ( 171=294 . 

CONTUR ( 1ft 1=29 5. 

• COMTUR (.191=296. 

CfIMTUR ( 20 1=297. -oV 

C 0 !v T U R ( ?l 1=298. . 

CfIMTUR ( 22 ) =299. 

COMTUR ( 231=300. 

COMTUR (24 1=301. 

CONTUR ( 251=302. 

COMTUR (261=303. 

CALL H0RL1N( ‘TEMPERATURE BRIGHTNESS ' ,22, 10.8, 22.0,-3,01 
GO TO 40 
20 NUMV = 1 3 

COMTUR ( 1 1=200. I'" , 

CONTUR ( 2 1 = 2 50. • . . • 

CONTUR ( 3 1 = 300. 

CONTUR ( 4 1=350, 

CONTUR ( 51=400. , 

COMTUR ( 61=450. 

CONTUR (7 1=500* . 

COMTUR ( 81=550. 

CONTUR ( 9 1 =600 . 

COMTUR (1.0 1=650. 

CONTUR ( 1 1 1 = 700. 

CONTUR ( 121=750. 

CONTUR ( 13 1=800. 

CALL HORLlNf 'REFLECTANCES' ,12.12.5,25.5,-2,0) 

GO TO 40 

30 NUMV=1 6 1 

CONTUR ( 1 1=5. --O- 

CONTUR ( 2. 1 = 10. | 

CONTUR ( 3 1=15. , ?'--> • 

CONTUR ( 41=20. ! 

COMTUR ( 51=25. 

CONTUR (61=30. ' .'4. : .. 0' 

CONTUR ( 7 1 =3 5. UOO 

CONTUR ( 8 1=40. 





o o o o n n 


GUNTUR ( 9 ) = A5. 

CONfURf 1 0 ) =*S0 . / : ' 

GUNTUR ( 1 l ) = 55. . 

cumtuk ( 1 2 ) = 6 o • 

CONTUR ( 1 3 ) =65 • 

CUMTUR( 14) =70. 

GUNTUR ( 15 ) = 75. 

CriNTUR ( 16) =80. 

CALL HHRLIN( ‘CLOUD OPT IC AL THICKNESS 23, 12. 5t ?5. 5* -5» 0) 

40 CALL SETGRDf 1 . . 1 . , 2 l . 6 , 2 1 . 6 , 4 ) 

• CALL SETS I Z( .60 ), 

CALL CONFRM ( FNT ( 1 ) ) , 

CALL IMOEX(l) 

CAtiiL L A BEL I f 2 ) 

CALL 0 GR I 0 ( FLOAT ( I M I N ) , FLOAT f IM AX ) ♦ 1 , FMT , 0 , FLOAT < JM I N ) , 

1 FLOAT (UMAX) , 1 , FMT.O.O) 

CALL UNDE F( 0.0) TU':, "TU 

CALL F I LL ( TBB w.00 , 2 00 ♦ 1 ) 

CALL TRACER (TRB, 200,200) 

CALL FRMADV 
CALL SETBLK ( 999 ) 

CALL END PL T 
RETURN :U 

END, I. , . 

SUBROUTINE SPL I NE ( S , X , Y , M, IN , T , I L, VL , I U, VU, E , U ) 1 

X , Y ARRAY OF INO. F, DEPEN. VAR S THE ARGUMENT TO BE INTERPOLATED 
T THE INTERPOLATED VALUE, N THE DIMENSION OF ( X, Y ) 

IN=1 DETERMINES .SPL IMF RING, JN = 2 INTERPOLATES SPLINE FNC 
11,111=1 PARABOLIC RUNOUT CONDITIONS AT LOWER F. UPPER BOUND* 

1 1. , l U = ? 1ST DERIVATIVE ( VL.V’U) AT LOWER OR UPPER BOUND RESP. 

I L , I U=3 2ND DERIVATIVE ( VL. VU) AT LOWER OR UPPER BOUND RESP. 

IMPLICIT REAL*8( A-H ,0-Z ) 

DIMENSION XU), Y ( 1 ) , E( T) ,U( 1) 

GO TO ( 10,40) , IN 
10 CONTINUE 

N1=N-1 ■ . 'V; 

B 1 = X ( 2 ) - X ( 1 ) 

Cl=( Y( ?)-Y( 1 ) )/Bl 
GO TO <12,14, 16), IL 
12 F ( 1 ) = 1 . 0 

Of 1 ) =0 . 0 T: .i...'-.-.:.;,- 

GO TO IB- - ■ 

14 E ( 1 )=-. 5 c . , ... 

Of I ) = ( C 1 -VL J/2/B1 
GO TO 18 
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16 F ( 1 ) =0 

IK 1 ) =VL/ ) 2 
18 crmiKur- 
nn p a j=p i N. i 
R2=X( J+l >-X ( J 
C2=( Y( J + l ) - Y ( J ) )/R2 
R=X( J+l )-X( J-l ) 

0= ( CP -Cl ) /ft 

C=B1/B 

B.i = R2 

• Cl =C2 J/.v 

P=C*E( J-l )'+2.0 
E ( J ) = (C-1 .0)/P 
20 IK J) = <n-C*lJ( J-l ) )/P 
on TO (22,24,26) , IU 
22 CONTINUE 

E ( M ) = U ( N 1 )/( l.O-E(Nl) ) 

GO TO 28 

24 C2= VU- ( Y ( N ) - Y ( N 1 ) ) / ( X ( N ) -X ( N 1 ) ) 

F ( N ) = ( C 2 / ( X ( N ) - X ( N 1 ) ) -U ( N 1 ) ) / ( 2 . 0D0+ E ( N1 ) ) 

GO TO 2 8 i: • 

26 fi ( N ) = VU/ 12.0 
28 CON T I MU E 

DO 30 KK— 1 » NT 
K=M-KK 

E(K)=E(K)*E(K+1 )+U(K) 

TO OBTAIN THE DERIVATIVES AT THE KNOTS REMOVE C FROM THE 
FOLLOWING COMMENTS CARDS. THEN THE ARRAY U WILL CONTAIN 
THE DERIVATIVES OF THE SPLINE FUNCTION AT THE KNOTS 
B2=X ( K+l ) — X ( K ) 

IKK )=( Y(K+1 )-Y(K ) >/B2-R2*( E ( K ) 42 + E < K+l ) ) 

30 CONTINUE 

R 2 = X ( N ) - X ( N 1 ) 

U ( N ) = ( E ( N 1 )+2.0D0*E<N) )*B2+( Y(N)-Y(N1 ) )/B2 

RETURN 

40 IF ( X ( 1 ) . GT . X ( N ) ) GO TO 50 
I 0 I R = 0 
M L B = 0 

MUB=M - •• 

GO TO 60 
50 I D 5 R •- 1 
M L B = N TV 

. MlJB = OJG“% . . : 

60 IF ( S.GE. X(MUR+IOIR) ) GO TO TOO 
IF (S.LE.X(MLB+1-IDIR) ) GO TO 110 


) 
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MU = MUR 

GO TO HO • 

70 , 1 f ( IAHSI MIJ-HI. ) .I.E . I ) GO TO l?0 
80 M A V = ( ML+MIJ ) /? 

If- (S.LT.X(HAV) ) GO TO 90 
M L = M A V 
Gfl TO 70 
90 MU-MAV 
GO TO 70 

100 M U= HUB + 2 S ' ? I 0 I R 
GO TO 130 

110 MU = M|-R + ?*( 1-JDIK ) ■. ; 

GO. Tfl 130 
1?0 MU=MU+ I D I R 

130 T= ( F ( MU- 1 ) * ( ( X ( MU ) -S ) **3 ) +E ( MU ) * ( ( S-X ( MU- 1 ) ) **3 ) + 

1 < Y (MU- 1 ) -E ( MU-1 ) ?((X (MU ) -X ( MU-1 ) )**2 ) )*( X (MU) -S ) + 

? ( Y ( MU ) -E ( MU ) * ( ( X ( MU ) -X ( MU- 1 ) ) ** 2 ) )*( S-X( MU-1 ) ) ) / 

3 (X(MU)-X(MU-l) ) 

RETURN 

END 
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APPENDIX J - JSC-SUPPLIED TAPE FORMATS 
FOR S-191 AND S-192 TAPES 
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5.3*2 S 19 V Processed Data Tape 

This section describes the processed data tape* 
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S191 PROCESSED HEADER RECORD 


BYTE NO. 

CONTENT 


DESCRIPTION 

BYTE NO. 

CONTENT 

1-2 

2520 


RECORD LENGTH (BYTES) 

111-1X2" 

125 

3-3 



DATE OF TAPE GENERATION 

113-114 

20 

3-4 

28 


DAY ) 

115-116 

16 

5-6 

09 


MONTH > EXAMPLE: 28 SEPT. 72 

1-17-124 

P202-191 

7-8 

72 


YEAR j 

1 * 


9-14 



’ START DATE OF DATA 



9-10 

01 


DAY ) 

133-136 

0 

11-12 

09 


MONTH > EXAMPLE: 1 SEPT. 72 

137-140 

0 

13-14 

72 


YEAR J 

141-142 

165 

15-16 

21 .v - 


NO. OF MEASUREMENTS 

143-144 

20 


} j"\ , [■' ' ' 


DESCRIBED 

145-146 

16 

17-18 

616 


DATA BLOCK LENGTH (BYTES) 

147-154 

P 203-191 

19-20 

4 P 


NO. OF DATA BLOCKS PER 

l 





DATA RECORD 

• 


21-50 



MEASUREMENT NUMBER 1 

163-166 

0 




SEGMENT 1 CHANNEL 

167-170 

0 




A 2 RAD- WATTS/ CM 2 / 

171-172 

205 




MICRON/STER 

173-174 

20 

21-22 

5 


START LOCATION (BYTE NO.) 

175-176 

16 

23-24 

20 


NO. OF SAMPLES PER BLOCK 

177-184 

P205-191 

25-26 

16 


NO. OF BITS PER MEASUREMENT 

• 


27-34 

P102-191 


MEASUREMENT NUMBER 

r 


35-36 

A COEFFICIENT 


► INTERCEPT 

193-196 

0 

37-33 

E° EXPONENT 


197-200 

0 

39-40 

A°C0EFFICIENT 


\ SLOPE 

201-202 

245 

41-42. 

E ^EXPONENT 


203-204 

20 

43-46 

o 1 


AT 

205-206 

16 

47-50 

0 


At 

207-214 

P302-191 

51-52 

45 



I 


53-54 

20 



• - 


55-56 

16 


MEASUREMENT NUMBER 2 

223-226 

0 

57-64 

P103-191 


\ SEGMENT 1 CHANNEL A3 

227-230 

0 

m . 



f RAD. - WATTS / CM2 /MICRON / 

231-232 

285 

' 1 . ' ■ 



STER 

233-234 

20 

73-76 

0 



235-236 

16 

77-80* K ri 

0 

> 

■ . : = ; - 

237-244 

P3C3-191 

81-82 

85 





83-84 

20 



• 


85-86 

16 


MEASUREMENT NUMBER 3 

253-256 

0 

87-94 

P105-191 


> SEGMENT 1 CHANNEL A5 

RAD.-WATTS/CM Z /MICRON/ 

257-260 

0 






103-106 H 

0 


STER 



107-110 

0 

> 





DESCRIPTION 


MEASUREMENT NUMBER * 
SEGMENT 2 CHANNEL A2 
RAD - WATTS /CM 2 / 
MICRON/STER 


MEASUREMENT NUMBER 5 


SEGMENT 2 CHANNEL A3 
RAD - WATTS /CM 2 / 


MICRON/STER 


MEASUREMENT NUMBER 6 
SEGMENT 2 CHANNEL A5 
RAD - WATTS/CM 2 / 
MICRON/STER 


MEASUREMENT NUMBER 7 
SEGMENT 3 CHANNEL A2 
RAD - WATTS /CM"/ 
MICRON/STER 


MEASUREMENT NUMBER 8 
SEGMENT 3 


CHANNEL A3 
RAD — WATTS /CM 2 / 


wQ <2 

W ST C S 

a ►- o 
2 3 c T 
a w 3 -i 
v; ra o 


i j 


H > 


MICRON/STER 




: ■■Ai. J* <*{<■<(*£ fltiSfcli. A 
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BYTE NO 

561-552 

563-564 

565-566 

567-574 

533-586 

587-590 

591-592 

593-554 

595-596 

597-504 

613-616 

617-620 

621-622 

623-624 

625-625 

627-634 

643-646 

647-650 

651-710 

711-712 

713-714 

715-716 

717-718 

719-720 

721-722 

723-762 


*THF.SS y 
ON THE 




S191 PROCESSED HEADER RECORD (CONTINUED) 


CONTENT 


DESCRIPTION 

BYTE NO. 

CONTENT 

DESCRIPTION 

611 

1 

16 


MEASUREMENT NUMBER 19* 

763-802 

.■ ■ -}‘j ■ 


20 WAVELENGTHS (2 BYTES 
PER WAVELENGTH) FOR 
FILTER SEGMENT 2 

PO 73-SKY 


l DRIFT ZLV YAM - DEG 

803-842 


20 WAVELENGTHS (2" BYTES 
PER WAVELENGTH) FOR 
FILTER SEGMENT 3 

0 



843-882 

* : 

20 WAVELENGTHS (2 BYTES 

0 

613 

1 

16 



•s 

MEASUREMENT NUMBER 20* 

883-922 


PER WAVELENGTH) FOR 
FILTER SEGMENT 4 
20 WAVELENGTHS (2 BYTES 
PER WAVELENGTH) FOR 

P07I-SKY 


^ ROLL ZLV- DEG 

923-962 


FILTER SEGMENT 5 
20 WAVELENGTHS (2 BYTES 

0 

0 

615 

1 

16 

> 

MEASUREMENT NUMBER 21* 

963-2520 


PER WAVELENGTH) FOR 
FILTER SECMEST 6 
FILL ZEROS 

P072-SKY 

' U 

> PITCH ZLV - DEG 

' ^ ■; ' . . ■ 




0 I 

0 J ■ . 

60 CHARACTERS OF ALPHANUMERIC 
IDENTIFICATION (ITITLE) 

NO. OF ACTIVE WAVELENGTHS IN 
FILTER SEGMENT I 
NO. OF ACTIVE WAVELENGTHS IN 

FILTER SEGMENT 2 _ : 

NO. OF ACTIVE WAVELENGTHS IN 
FILTER SEGMENT 3 
NO. OF ACTIVE WAVELENGTHS IN 
FILTER SEGMENT 4 
NO. OF ACTIVE WAVELENGTHS IN 

FILTER SEGMENT 5 • 

NO. OF ACTIVE WAVELENGTHS IN 
. ; ! . FILTER SEGMENT 6 

20 WAVELENGTHS (2 BYTES PER 
WAVELENGTH) FOR FILTER 
SEGMENT 1 

EASUREMEN7S ARE INCLUD ED SO AS TO MAKE THE PROCESSED TAPE FORMATS FOR S191 AND THE_ FIELD SPECTROMETER C<WPATIBLE. 

TAPE CONTAINING FIELD SPECTROMETER DATA THESE FIELDS SHALL CONTAIN FILL ZEROS. 
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I 

o 


II 

P ?Q 

9 a 

fa 

w 


RECORD 
BYTE NO. 

1-4 

5-44 
45-34 
8-5-124 
125- L64 
165-204 
205-244 
245-284: 
285-324 
325-364 
365-404 
403-444 
445-484 
485-524 
525-564 
565-604 
605-606 
607-608 
60S- 6 10 
611-612 
613-614 
615-616 
‘617-1232 
1233-1848 
1849-2464 
2465-2520 






S191 PROCESSED DATA RECORD 


CONTENT 
FRAME TIME 

20 SAMPLES OF *102*191 
20 SAMPLES OF P103-191 
20 SAMPLES OF P 105-191 
20 SAMPLES OF P202-191 
20 SAMPLES OF P203-191 
20 SAMPLES OF P205-191 
20 SAMPLES OF P302-191 
20 SAMPLES OF P303-191 
20 SAMPLES OF *305-191 
20 SAMPLES OF P40 1-191 
20 SAMPLES OF P406-191 
20 SAMPLES OF P50 1-191 
20 SAMPLES OF P506-191 
20 SAMPLES OF P601-191 
20 SAMPLES OF P606-191 
1 SAMPLE OF P026-SKY 
1 SAMPLE OF P023-SKY 
1 SAMPLE OF P025-SKY 
1 SAMPLE OF P073-SKY 
1 SAMPLE OF PQ71-SKY 
1 SAMPLE OF P072-SKY 
BLOCK 2 
.6 LOCK 3 
BLOCK 4 
FILL ZEROS 
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S-192 CYBER 73 LINE STRAIGHTENED DATA TAPE HEADER RECORD 


PRODUCT lOi! 


DE SCRIPTIO N • 

COMPUTING SYSTEM PRODUCING (EXAMPLE) 
THIS TARE (EBCDIC) 

TAPE LIBRARY ID-EBCDIC 


73*80 

73-74 

75 

76 

77 

78 

79 

80 


SENSOR ID - EBCDIC 

DATE OF TtjlS. TAPE GENERATION (EXAMPLE) 

DAY OF MONTH - BINARY 

MONTH NUMBER - BINARY 

YEAR - i LAST 2 DIGITS - BINARY 

TAPE SEQUENCE ID-BINARY (EXAMPLE) 

MISSION NO. BINAJ1Y (EXAMPLE) 

SITE - BINARY (EXAMPLE) 

LINE - BINARY (EXAMPLE) 

RUN - BINARY (EXAMPLE) 

ORBIT - BINARY (EXAMPLE) 

TIME OF FIRST SCAN IN THIS JOB (EXAMPLE) 
TENTHS OF MILLISEC - BINARY' 

SECONDS - BINARY 

MINUTES - BINARY 

HOURS - BINARY 

DAY OF MONTH - BINARY 

MONTH NUMBER - BINARY 

YEAR - LAST 2 DIGITS - BINARY 


CHANNELS 1 THRU 22 


CHANNELS ACTIVE IN THIS JOB (EXAMPLE) 

UP TO 64 CHANNELS, 1 BIT/CH STARTING 
LEFT TO RIGHT (MSB TO LSB) , 1 - ACTIVE; 
VIDEO DATA ALWAYS APPEARS IN THE ORDER 
INDICATED HERE. CONSTANT FOR JOB. 


PROCESSING FLAG 
00000000 = RAW DATA 

00000001 = PROCESSED DATA FROM COMPUTING 
SYSTEM . 

NUMBER OF (CHANNELS IN THIS JOB (EXAMPLE) 

! ! 

NUMBER OF PITS IN A PICTURE ELEMENT 

ADDRESS OF START OF VIDEO DATA GIVES 

LOCATION OF START OF VIDEO WITHIN SCAN 

ADDRESS OF START OF CALIBRATION DATA GIVES 
LOCATION OF START OF CALIBRATION- 
WITHIN" SCAN 


NUMBER OF VIDEO- ELEMENTS PER SCAN WITHIN 
A SINGLE CHANNEL 



r les dxi\r to line c tra iy, hi: cuing 



4 - 


103 


104 ; 

105-106 

107 

108-109 

110-111 

112-239* 

240-367* 

% ' 

368-495* 
496-623* 
• 624-687 
688-751 

752 

753 

754-761 

762-769 

770-777 

778-735 

786-793 

794-801 
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S- 192 CYBER 73 LINE STRAIGlfTENKP DATA TAPE HEADER RECORD (CONTINUED) 


BYTES 

CONTENTS 

DESCRIPTION - * 


98-99 

0 

NUMBER OF CALIBRATION ELEMENTS TER 
WITHIN A SINGLE CHANNEL 

SCAN 

100-101 

3060 

PHYSICAL RECORD SIZE IN BYTES 


102 

2 \ 

NUMBER OF VIDEO CHANNELS IN SECOND 
SUBSEQUENT PHYSICAL RECORDS PER 
SET 

AND 

DATA 


11 

260 

0 

1 

1033 


60 

00000520 

00000560 

00000520 

00000560 

00000560 

00000610 


NUMBER OF PHYSICAL RECORDS PER SCAN 

PER CHANNEL. THIS FIELD IS USED ONLY 
WHEN THE NUMBER OF ELEMENTS PER CHANNEL 
IS GREATER THAN 3K. OTHERWISE IT IS 
EQUAL TO 0. 

NUMBER OF RECORDS TO MAKE A COMPLETE DATA SET. 


LENGTH OF ANCILLARY BLOCK IN BYTES. ‘ 
DATA ORDER INDICATOR (EXAMPLE) • 

START PIXEL NUMBER (EXAMPLE) . 

STOP PIXEL NUMBER (EXAMPLE) 

A c COEFFICIENT (2 BYTES /CHANNEL) . 

E 0 EXPONENT (2 BYT ES / CHANNEL) . 

Ai COEFFICIENT (2 BYTES /CHENNEL) . 

Ej EXPONENT (2 BYTES /CHANNEL) • 

COLOR CODE INFORMATION (TABLE 6. 0.1-1). 
SCALE FACTOR (TABLE 6. 0.1-1). 

OFFSET CONSTANT 

WORD SIZE OF GENERATING COMPUTER 
SHORT WAVELENGTH** END OF SDO 1 j 
LONG WAVELENGTH** END OF SDO 1 
SHORT WAVELENGTH** END OF SDO 2 
LONG WAVELENGTH** END OF SDO 2 
SHORT WAVELENGTH** END OF SDO 3 
LONG WAVELENGTH** END OF SDO 3 


jpi 


*KSB IS A SIGN BIT; 0 - +, l 
**niLLl-MICUONS - EBCDIC. 


c-gpB-OD 






■ nr 

1 
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S- 192 CYBER 73 LINK STRAIGHTENED DATA TAPE HEADER RECORD (CONTINUED) 


BYTES 

CONTENTS 

DESCRIPTION 





802-809 

00000560 

SHORT WAVELENGTH'* 

END 

OF 

SDO 4 

810-817 

00000610 

LONG WAVELENGTH* 

END 

OF SDO 4 

818-825 | 

00000620 

SHORT WAVELENGTH* 

END OP SDQ 5 

826-833 

00000670 

LONG WAVELENGTH* 

END 

OF 

SDO 

5 

834-841 

00000620 

SHORT WAVELENGTH* 

END 

OF 

SDO 

6 

842-849 

00000670 

LONG WAVELENGTH* 

END 

OF 

SDO 

6 

850-857 

00000680 

i 

SHORT WAVELENGTH* 

ENT) 

OF 

SDO 

7 

858-865 

0C000760 

LONG WAVELENGTH* 

END 

OF 

SDO 

7 

866-873 

00000680 

SHORT WAVELENGTH* END 

OF 

SDO 

8 

874-881 

00000760 

LONG WAVELENGTH* 

END 

OF 

SDO 

8 

882-889 

00000780 

SHORT WAVELENGTH* 

END 

OF 

SDO 9 

890-897 

00000880 

LONG WAVELENGTH* 

END 

OF 

SDO 

9;; 

898-905 

00000780 

SHORT WAVELENGTH* 

END 

0? 

SDO 

10 

906-913 

00000880 

LONG WAVELENGTH* 

END 

OF 

SDO 

! 

IP 

914-921 

00001550 

SHORT WAVELENGTH* 

END 

OF 

SDO 

11 

922-929 

00001750; 

LONG WAVELENGTH* 

END 

OF 

SDO 

■ ! 

11 

930-937 

00001550 

SHORT WAVELENGTH* 

END 

OF 

SDO 

12 

938-945 

00001750 ; 

V LONG WAVELENGTH* 

END 

OF SDO 

12 

946 j 953 

00002100 | 

SHORT WAVELENGTH* 

END 

OF 

SDO 

13 

954-961 

00002350 ! 

V - /.• ■; ~'| . -v 

LONG WAVELENGTH* 

END 

OF 

SDO 

13 

962-969 

00002100 | 

SHORT WAVELENGTH* 

END 

OF 

SDO 

14 

970-977 

00002350 ' 

LONG WAVELENGTH* 

END 

OF 

SDO 

14 

978-985 

. 00010200 | 

SHORT WAVELENGTH* 

END 

OF 

SDO 

15 

986-993 

00012500 

* : *.':1 * • • . 

LONG WAVELENGTH* 

END 

OF 

SDO 

15 

994-1001 

000 1^2 00 

SHORT WAVELENGTH*; END 

OF 

SDO 

1$ 

1002-1009 

f 00012500 

1 ■ ■ • 

LONG WAVELENGTH* 

j i 

END 

OF 

SDO 

16 

1010-1017 

00001200 

SHORT WAVELENGTH* 

END 

OF 

SDO 

17 

1018-1025 

00001300 . 

LONG WAVELKNCTII* 

END OK 

SDO 

17 

1026-1033 

00000460 

SHORT WAVELENGTH* 

END 

OF 

SDO 

18 


^llLLl-MlCRONh - EHCD1C 
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5*192 CYBER 

73 LINS STRAIGHTENED DATA TAPE HEADER RECORD (CONTINUED) 

■i . i ' 

BYTES 

CONTENTS 

DESCRIPTION 


\ ' i ■■ 

1034-1041 1 

00000510 

LONC WAVELENGTH* 

END OF SDO 18 

! /•; . •; ■' '■ 

1042-1049 

00000980 

SHORT WAVELENGTH-' 

END OF SDO 19 

.j j ■ . ■ 

1050-1057 

00001030 

LONG WAVELENGTH* 

ENT) OF SDO 19 

] j ; . 

1058-1065 

00001090 

SHORT WAVELENGTH 1 ’ 

END OF SDO 20 

t : 

1066-1073 

0000U90 

LONG WAVELENGTH* 

END OF SDO 20 

1 ! 

1074-1081 

00010200 

SHORT WAVELENGTH 1 ' 

END OF SDO 21 

U j ' 
!1 

1082-1089 

v: . . . j 

00012500 

LONG WAVELENGTH* 

END OF SDO 21 

li ■ i . • v . > r ■ 

1090-1097 

00000410 

SHORT WAVELENGTH 1 ’ 

• END OF SDO 22 

if t '• ' :■■■■■ 

)• 

1098-1105 

00000460 

LONG WAVELENGTH* 

END OF SDO 22 

\ ;•••'' : ■ ; . 

1106-1777 

0 

FILL ZERO 


h / • 

1778 

0 

NUMBER OF DATA SETS PER PHYSICAL RECORD 

H L . . • 

1779-1780 

0 

ADDRESS OF START 

OF SECOND CALIBRATION 


1781-1782 


1784 

;.| 

1785-1786 


1787-1788 

1789-1790 

1791-1792 

1793-2184 


1033** 

1 

1 

0 


*M1LL1-MCKQSS - EBCDIC 
**SA>K VALUE AS IN BYTES %- 97 


WITHIN SCAN. IF THE SCAN HAS ONLY 
ONE CALIBRATION AREA, THIS FIELD WILL 
CONTAIN ZEROS. 


NUMBER OF CALIBRATION ELEMENTS IN THE 
SECOND CALIBRATION AREA WITHIN THE 
SCAN IN A SINGLE CHANNEL. IF TIE 
SCAN HAS ONLY ONE CALIBRATION AREA, 
THIS FIELD WILL CONT AIN ZEROS . 


CALIBRATION SOURCE INDICATOR 
LSB = SECOND CALIBRATION jAREA 
LSB + 1 * FIRST CALIBRATION AREA 

0 - LW CALIBRATION SOURCE DATA 

PRESENT 

1 «= HIGH CALIBRATION SOURCE DATA 

PRESENT 


FILL ZEROS 


NUMBER OF CHANNELS IN THE FIRST PHYSICAL 
RECORD OF THE DATA SET. 


TOTAL NUMBER OF ELEMENTS PER SCAN PER CHANNEL. 
PIXEL SKIP FACTOR (EXAMPLE) . 

SCAN SKIP FACTOR (EXAMPLE) . 

FILL ZEROS 


J-10 


reproducibility of the 

ORIGINAL PAGE IS POOR 








PIIO-TP5l*3 
Volume 1 
Change 2 

12 Oct. 1973 


S-192 CYBER 73 LINE STRAIGHTENED DATA TAPE HEADER (CONTINUED) 


DESCRIPTION 


CONTENTS 


BYTES 


GENERAL ANNOTATION BYTE ASSIGNMENTS 
FOR ERIPS (NOT SUPPLIED BY PDP) 


2185-2550 


USER COMMENTS 


FILL ZEROS 


LATITUDE OF PIXEL 1 OF REGISTERED IMAGE 


2489-2496 


LONGITUDE OF LINE 1 OF REGISTERED IMAGE 


LATITUDE SCALE FACTOR - DEG/PIXEL 


2505-2512 


LONGITUDE SCALE FACTOR - DEG/PIXEL 


FILL ZEROS 


GENERAL ANNOTATION BYTE ASSIGNMENTS FOR THE 
CYBER 73 


BILEVEL WORD NO. 1 


BIT 1 SPARE, SET TO ZERO 


BIT 2 SCAN ANGLE CORRECTION REQUESTED 
1 *= YES, 0 = NO 


BIT 3 NON-LINEARITY CORRECTION REQUESTED 
1 «= YES, 0 = NO 


BIT 4 EARTH ROTATION CORRECTION REQUESTED 


BIT 5 E.U. CONVERSION REQUESTED 
1 - YES, 0 = NO 


BIT 6 SPARE 


BIT 7 SPARE 


BIT 8 OMIT SCREENING OUTPUT 
1 *= YES, 0 *= NO 


BILEVEL WORD NO. 2 


1 = BAND FORMAT STRAIGHTENED 
0 - SDO FORMAT STRAIGHTENED 


LINE STRAIGHTENED DATA REQUESTED 
(9-TRK) 

I " YES, 0 * NO : . 


BIT 3 CONICAL DATA REQUESTED (9-TRK) 



I 
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b ytes 


2551-2642 

2552 


2553-2555 

2556-2564 

2555-2568 


S-192 CYBER 73 LINE STRAIGHTENED DATA TAPE HEADER RECORD (CONTINUED) 

CONTENTS DESCRIPTION 

GENERAL ANNOTATION BYTE ASSIGNMENTS FOR THE 
CYBER 73 (CONTINUED) 

BILEVEL WORD NO. 2 (CONTINUED) 

BIT 4 LINE STRAIGHTENED DATA REQUESTED 
(7-TRK) 

1 « YES , 0 = NO 

.... ... . t • '. .. i 

BIT 5 CONICAL DATA REQUESTED (7-TRK) 

11 *■ yes, o "*> 'no 

BIT 6 CREATE COLOR COMPOSITE IMAGERY 
: 1 != YES, 0 “'no v'.". 

BIT 71 = BAND FORMAT CONICAL 

0 ■= SDO FORMAT CONICAL 

BIT 8 CREATE SINGLE COLOR IMAGERY 

1 = YES, 0 = NO 

CHANNELS REQUESTED ON STRAIGHTENED C.CT 

V' . ■ '.v'' ' "■ | i ,P : P-P/P ■ 

EACH CHANNEL WILL BE REPRESENTED BY ONE 
BIT, WITH THE BITS ARRANGED IN ORDER 
FROM 1 TO 24 WITH CHANNEL ONE IN THE MSB 
. OF THE FIRST BYTE. A ONE MEANS TIE 
CHANNEL IS REQUIRED, A ZERO MEANS IT IS 
NOT REQUESTED. 

FILL ZEROS ! 

' RADIANCE UNIT TAB START THE (ELEMENT VALUE)* 

tie got Representing the time at which 
THE’ tab run is TO BEGIN. TIE TIME IS 
RECORDED IN TENTHS OF MILLISECONDS. 



2569-2570 

2571-2572 

2573-2575 

2576 


2577 

I 



TOTAL NUMBER OF SCAN LINES TO BE PRINTED 

j i ■ ; P Pp- ■ ■ p : . • ' 

INCREMENT FOR SCAN LINE TAB 

PPPvt ; ; i’ P ' pi ' p ■i\v :PP ■■■ ■ -'r.^PppPIP- : 

FILL ZEROS 

■••• .. /• ■ : • • ’ ; ... 

NUMBER OF COPIES OF CONICAL TAPE REQUIRED 

NUMBER OF ELEMENT VALUE TAB COPIES REQUESTED 

TIE NUMBER OF TAB COPIES REQlXSTF.D 
REPRESENTED IN A BINARY, 


*2r.R0S IN THE TAB REQUEST START AND STOP TIMES ’WILL INDICATE THAT NO TAB LISTINGS 
ARE REQUIRED. ’ P-; .P /■'” ■’ ■ . 





18 ¥0 °* 
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Sr 192 CYBER 73 LIKE. STRAlGIfrENED DATA TAPE HEADER RECORD (CONTINUED) 

DESCRIPTION 


2551-2642 


GENERAL ANNOTATION BYTE ASSIGNMENTS FOR THE 
CYBER 73 (CONTINUED) 


NUMBER OF COPIES OF STRAIGHTENED TAPE 
REQUESTED 

THE BINARY REPRESENTATION OF THE NUMBER 
OF TAPE COPIES REQUESTED, 

CALIBRATION PROCESSING INTERVAL 


2580-2587 


2590-2593 


THE BINARY | REPRESENTATION OF THE SCAN 
LINE INTERyAL 

FILL ZEROS 

NUMBER OF COPIES OF STATISTICAL TAB 
REQUESTED 

FILL ZEROS 

LIMIT SENSE TAB START TIME 


2594-2595 


TOTAL NUMBER OF SCAN LINES TO BE PROCESSED 


2596-2597 


FILL ZEROS 


2600-2603 


NUMBER OF COPIES OF LIMIT SENSE TAB 
REQUESTED 

FILL ZEROS 

START TIME OF ELEMENT VALUE VS ELEMENT 
NUMBER PLOT 


2604-2605 


TOTAL NUMBER OF SCAN LINES 


2606-2607 


2608-2642 


2643-2758 


INCREMENT FOR SCAN LINE PLOT (NUMBER Or 
SCAN LINES) 

FILL ZEROS (END OF CYBER 73 ANNOTATION) 
FILL ZEROS 












BYTE MO . 
2759-2940 


2759* 

2760-2789* 

2790-2792* 

2793-2794* 

2795* 


2796* 


2797* 


2798* 


2799* 


2800-2807* 


2808* 


2809-2873 


2874* 
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5-192 CYBER 73 LIME STRAIGHTENED DATA TAPE HEADER RECORD (CONTINUED) 

DESCRIPTION 


GENERAL ANNOTATION BYTE ASSIGNMENTS FOR THE 
PRODUCTION FILM CONVERTER 


n THOUSAND SCAN LINES PER FRAME ■- BINARY 
JOB ID - EBCDIC : 

ALTITUDE IN METERS - BINARY 

GROUND SPEED IN METERS PER SECOND - BINARY 

SCAN TYPE - BINARY 


0 

1 


LINEAR 

SMOOTHED 


ANGLE OF ARC IN DEGREES - BINARY 
CAMERA - BINARY 


0 * 70 mm 

1 * 5- INCH 


INPirr DEVICE - BI NARY 


0 « 9-TRK 

1 « HDT 


TRUNCATION - BINARY 


LO 

HI 

NO 


CHANNELS REQUESTED 

1 BIT/ CHANNEL UP TO 64 TOTAL CHANNELS - 
BINARY 


PROCESSING MODE - BINARY 


0 * SERIALLY 

1 *: CONCURRENTLY 


OVERLAY IMAGE FACTORS - BINARY 


Aq> A| , A2 . . . A n WHERE n *= CHANNEL 
NUMBER AND n = 0, IS THE OVERALL FACTOR ; 
THERE IS AN IMPLIED DECIMAL POINT TO 
LEFT OF THE LEAST SIGNIFICANT DECIMAL 
.DICrn IF THE MSB = 1, THE NUMBER IS 
NEGATIVE; IF »'0 # - POSITIVE. 


COLOR SELECT - BINARY 


0 « NO COLOR 

1 « ASSIGNED COLOR 

2 * false color 


HIRED FOR IMAGE PROCESS I NO CALC Cl AT TOILS . 


»c©^^s? o0,< ■ 


J-14 
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BYTE NO . 
2759-2940 

2875* 


2876* 


2877 


2878-2881 


2882-2883 

2884 

2885-2886 

2887-2940 

2941-3000 

3001-3060 


S- 192 CYBER 73 LINE STRAIGHTENED DATA TAPE HEADER .RECORD (CONTINUED) 

D ESCRIPTION 

GENERAL ANNOTATION BYTE ASSIGNMENTS FOR THE 
PRODUCTION FILM CONVERTER (CONTINUED) 

IMAGE FORMAT - BINARY 

0 «= SINGLE IMAGE 
1> OVERIAY IMAGES 
2 * ABUT IMAGES 

' 3 « OFFSET IMAGES 

REPEAT OF PIXELS PER SCAN - BINARY 


0 * NONE 
1> 1 REPEAT 
2 * 2 REPEAT 
n * n REPEAT 


REPEAT OF SCAN - BINARY 

0 « NONE ! 

■ 1 « 1 REPEAT 
2 c 2 REPEAT 
n « N REPEAT 

PARTIAL SCAN - BINARY V 

ZEROS TO INDICATE FULL SCAN 

BYTE 2878-2879 « FROM PIXEL NO. 

BYTE 2880-2881 = TO PIXEL NO. 

SENSOR SCAN RATE IN SCANS /SECOND - BINARY 

PIXEL SIZE - BINARY 

ANGLE OF DRIFT - BINARY 

BYTE 2885 = £ INTEGER 
BYTE 2886 = FRACTION 

FILL ZEROS 

1TITLE - USER DESIGNATED IDENTIFICATION 

FILL ZEROS, MAKES THE RECORD AN INTEGRAL 
NUMBER OF COMPUTER WORDS . THESE BYTES 
MUST NEVER CONTAIN DATA. 


★REQUIRED FOR IMAGE PROCESSING CALCUIATIONS . 


J-15 










BLOCK gm M 
1-4: 

5-68 

69-70 

71-74 

75-78 

79-82 

83-86 

87-90 

91-94 


i i 

95-118 

95-98 



♦DATA RECORD 
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S192 CYBER 73 LIKE STRAIGHTENED DATA TAPE ANCILLARY BLOCK 


CONTENT 


TIME AT TIE START OK THIS DATA SET, RECORDED IN 
TENTHS OK MILLISECONDS 

CHANNEL STATES 

CHANNELS 1 TliRU 22 = 1 OR 0 DEPENDING ON STATUS; 
CHANNELS 23 THRU 64 = 0 (PAGE 6.0.1-11) 

SCAN LINE NUMBER 

GEODETIC LATITUDE - SPACECRAFT NADIR 

BYTE 71 = SIGN + = ALL ZEROS, - = 00000001 

BYTE 72 = DEGREES 

BYTE 73 = MINUTES 

BYTE 74 = QUARTER SECONDS 

LONGITUDE - SPACECRAFT NADIR 

BYTE 75 = SIGN + = ALL ZEROS, - = 00000001 

BYTE 76 = DEGREES 

BYTE 77 = MINUTES 

BYTE 75 “QUARTER SECONDS 

ROLL ANGLE (+ = RIGHT WING UP) 

BYTE 79 = SIGN + = ALL ZEROS, - *= 00000001 
BYTE 80 = DEGREES . 

BYTE 81 = MINUTES 

BYTE 82 = QUARTER SECONDS 

PITCH ANGLE (+ = NOSE UP) 

BYTE 83 = SING + = ALL ZEROS, 00000001 

BYTE 84 = Dill REES ’.Or. H 

BYTE 85 = MINUTES 

BYTE 86 » QUARTER SECONDS 

YAW ANGLE (+ = NOSE TOWARD RIGirr WING) 

BYTE 87 = SIGN + = ALL ZEROS, - = 00000001 

BYTE 88 = DEGREES 

BYTE 89 = MINUTES 

BYTE 90 « QUARTER SECONDS 

• / > 

SUN ANGLE * * C * •' -L*-* ** 

BYTE 91 = SIGN + = ALL ZEROS, - = 00000001 

BYTE 92 = DEGREES 

BYTE 93 - MINUTES 

BYTE 94 = QUARTER SECONDS 

1ATITUDE AND LONGITUDE OF IMAGE FOOTPRINT 

LATITUDE OF CENTER OF FIRST PIXEL IN SCAN ARC 
BYTE 95 “ SIGN + = ALL ZEROS, - = 00000001 
BYTE 96 >= DECREES 
BYTE 97 “ MINUTES 
BYTE 98 «= QUARTER SECONDS 


BYTES 1 - 2 CONTAIN PHYSICAL RECORD COUNTER. 
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BLOCK BYTE MO. 


SI 92 CYBER 71 LISE STRAIGHTENED DATA TAPE ANC1LI.ARY BLOCK (CONTINUED) 
CONTENT 


95*118 (continued) 


103-106 


107-110 


111-114 


115-118 


119-202 


LONGITUDE OP CENTER OF FIRST PIXEL IN SCAN ARC 
BYTE 99 = SIGN' + = ALL ZEROS, - * 0000000 1 
BYTE 100 <* DEGREES 
BYT'E 101 = MINTTES 
BYTE 102 » QUARTER SECONDS 

LATITUDE OF CENTER OF CENTER PIXEL IN SCAN ARC 
BYTE 103 = SIGN + = ALL ZEROS, - = 00000001 
BYTE 104 « DEGREES 
BYTE 105 = MINUTES 
BYTE 106 “ QLYYRTER SECONDS 

LONGITUDE OF CENTER CF CENTER PIXEL IN SCAN ARC 
BYTE 107 b SIGN + = ALL ZEROS, - = 00000001 
BYTE 108 = DEGREES 
BYTE 109 = MINTTES 
BYTE 110 = QUARTER SECONDS 

LATITUDE OF CENTER OF LAST PIXEL IN SCAN ARC 
BYTE 111 = SIGN + = ALL ZEROS, - = 00000001 
BYTE 112 = DEGREES 
BYTE 113 = MINUTES 
BYTE 114 = QUARTER SECONDS ’ 

LONGITUDE OF CENTER OF LAST PIXEL IN SCAN ARC 
BYTE 115 = SIGN + = ALL ZEROS, - = 00000001 
BYT'E 116 = DEGREES 
BYTE 117 = MINUTES 
BYTE 118 = QUARTER SECONDS 

S192 HOUSEKEEPING PARAMETERS IN EBCDIC 


119-122 

123-126 

127-130 

131-134 

135-133 

139-142 

143-146 

147-150 

151-154 

155-158 

159-162 

163-166 

167-170 

171-174 

175-178 

179-IS2 


•192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 
-192 IN 


TENTHS 
TENTHS 
TENTHS 
T ETC (3 
TENTHS 
TENTHS 
TENTHS 
TENTHS 
TE.TIH3 
TENTHS 
TENTHS 
TENTHS 
TCNTK5 
TENTHS 
TENTHS 
TENTHS 


of °:< 

0? °K 

OF MILLIAMPS 
OF °K 

OF MILLIA21PS 
OF °K 
OF C K 
OF °K 
OF °K 
C? C K 
0? °K 
OF °K 
OF ok 
OF °K 
Cr °K 
OF C K 


J-17 


REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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S192 CYBER 73 LINE STRAICHTEN'ED DATA TAPE ANCILLARY BLOCK (CONTINUED) 
BLOCK BYTE NO . CONTENT 

119-202 (continued) 

A017-192 IN TENTHS OF °K 
A018-192 IN TEXTilS OF °K 
A019-192 IN TENTHS OF °K 
A020-192 IN TENTHS OF °K 
A021-192 IN TENTHS OF MICROSECONDS 

203 SCAN SHIFT DELAY FLAG 

0 (00000000) * NO SHIFT 
+1 (00000001) = MOVE TO RIGHT 

j: ;■ <■! (11111111) = MOVE TO LEFT 

20 4 TO BE DEFINED ' 

205-206 AXIMUTH (HEADING) IN DEGREES 

207-268 FILL ZERO 

GROUND VELOCITY IN METERS PER SECOND 
ALTITUDE IN METERS 

257-260 ORBITAL INCLINATION ANGLE IN' QUARTER ARC SECONDS 


249-252 

253-256 


183-186 

187-190 

191-194 

195-198 

199-202 



RECORD l 05* DATA SET 
WE NO . 

1-2 

3-262 

263-2323 

263-1295 

1296-2328 

2329-3060 


RECORD 2 01' DATA SET 
BYTE NO . 

1-2 ' 

3-2068 

3-1035 

1036-2068 

2059-3063 


RECORD 3 OF DATA SET 
BYTE NO . 

1-2 

3-2068 

3-1035 

1036-2068 

2069-3060 


RECORD A OF DATA SET 
BYTE NO . . 

1-2 

3-206S 

3-1035 

1036-2068 

2069-3060 


RECORD 5 OF DATA SET 
BYTE NO . 

1-2 

3-2068 

3-1035 

1036-2068 

2069-3060 


★VIDEO SAMPLES FROM 
SDO’S IN Mlll.lU'AllS 
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S- 192 CYBER 73 LINE STRAIGHTENED DATA TAPE RECORDS* 


DESCRIPTION 

FRAME COUNTER 
ANCILLARY BLOCK 
VIDEO BLOCK 

1033 SAMPLES OF VIDEO FROM SDO l (EXAMPLE) 
1033 SAMPLES OF VIDEO FROM SDO 2 (EXAMPLE) 
FILL ZEROS (EXAMPLE) 


DESCRIPTION 

FRAME COUNTER 

VIDEO BLOCK (CONTINUED) 

1033 SAMPLES OF VIDEO FROM SDO 3 (EXAMPLE) 
1033 SAMPLES OF VIDEO FROM SDO 4. (EXAMPLE) 
FILL ZEROS (EXAMPLE) 


DESCRIPTION 

FRAME COUNTER 

VIDEO BLOCK (CONTINUED! 

1033 SAMPLES OF VIDEO FROM SDO 5 (EXAMPLE) 
1033 SAMPLES OF VIDEO FROM SDO 6 (EXAMPLE) 
FILL ZEROS (EXAMPLE) 


DESCRIPTION 

FRAME COUNTER 

VIDEO BLOCK (CONTINUED) 

1033 SAMPLES OF VIDEO FROM SDO 7 (EXAMPLE) 
1033 SAMPLES OF VIDEO FROM SDO 8 (EXAMPLE) 
FILL ZEROS (EXAMPLE) 


DESCRIPTION 

FRAME COUNTER 

VIDEO BLOCK (CONTINUED) 

1033 SAMPLES OF VIDEO FROM SDO 9 (EXAMPLE) 
1033 SAMPLES OF VIDEO FROM SDO 10 (EXAMPLE) 
FILL ZEROS (EXAMPLE) 


EDO'S 15, 16 AND 21 ARE IN WATTS /CM 2 /SI ER/MICRON ; FROM ALL OTHER 
/ CM- /STER/M 1CRON . 
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PH0-TH'jli3 
Volunc 1 
Ciiant'C 2 
IP. Oct. 1973 


S-192 CYBER 73 LIME STRAICIfTF.NED DATA TAPE RECORDS (COST I SUED) 


RECORD 6 OF DATA SET , 

■ ■- I v :■■■■: '.::v 

BYTE NO . DESCRIPTION 

1-2 FRAME COUNTER 

3-2068 VIDEO BLOCK (CONTINUED) 

. 3-1035 1033 SAMPLES OF VIDEO FROM SDO 11 (EXAMPLE) 

| 1036-2068 1033 SAMPLES OF VIDEO FROM SDO 12 (EXAMPLE) 

j 206 9- 3000 FILL ZEROS (EXAMPLE) 


RECORD 7 OF DATA SET 

i BYTE NO . • DESCRIPTION 


1-2 

3-2068' 

3-1035 

1036-2068 

2069-3060 


FRAME COUNTER 

VIDEO BLOCK (CONTINUED) 

1033 SAMPLES OF VIDEO FROM SDO 13 (EXAMPLE) 
1033 SAMPLES OF VODEO FROM SDO 14 (EXAMPLE) 
FILL ZEROS (EXAMPLE) 



RECORD 8 OF DATA SET 

BYTE Jo. DESCRIPTION 


1-2 FRAME COUtiTER 

3-2068 VIDEO BLOCK (CONTINUED) 

3-1035 1033 SAMPLES OF VIDEO FROM SDO 15 (EXAMPLE) 

1036-2068 1033 SAMPLES OF VIDEO FROM SDO 16 (EXAMPLE) 

2069-3060 FILL ZEROS (EXAMPLE) 


RECORD 9 OF DATA SET 

BYTE NO . DESCRIPTION 

1-2 FRAME COUNTER 

3-2063 VIDEO BLOCK (CONTINUED) 

3-1035 1033 SAMPLES OF VIDEO FROM SDO 17 (EXAMPLE) 

1036-206S 1033 SAMPLES OF VIDEO FROM SDO 13 (EXAMPLE) 

2069-3060 FILL ZEROS (EXAMPLE) 


J-20 



■t—t *1 


! ' .*■ 

j • t 

i 


i>--i 


l 


!#1 


A ■ > - 


irO 


-4 


1} i 

u - 

it It 




L 


PH0-')’R5t3 
Voliur.c 2 



Ch/wge r: 

12 Oct. 1973 


1-2 

3-2066 

3-1035 

1036-2068 

2069-3060 


ftf . 

t ••••• 

i i 


S-192 CYBER 

73 LINE STKAICIflENto DATA TAPE RECORDS 

(CONTINUED) 

li . 

E 

W •{ 

RECORD 10 OF DATA 

SET 



•r ! 

B\TK NO, 


DESCRIPTION 


ft--'-*:. 

ij 

1-2 


FRAME COUNTER 


■k\ 

3-2068 

3-1035 


VIDEO BLOCK (CONTINUED) 

1033 SAMITES OF VIDEO FROM SDO 19 

(EXAMPLE) 

«jr f 

1036-2068 


1033 SAMPLES OF VIDEO FROM SDO 20 

(EXAMPLE) 

. : j • 'y:\ 

'%vt 

2069-3060 


FILL ZEROS (EXAMPLE) 


C-1 

V? 

' - 1 ;/ - : : i 

RECORD 11 OR DATA 

SET 

: ■ ■ . v r j . .• •. . 


fS 

BYTE NO. 


DESCRIPTION 



FRAME COUNTER 

VIDEO BLOCK (CONTINUED) 

1033 SAMPLES OF VIDEO FROM SDO 21 (EXAMPLE) 
1033 SAMPLES OP VIDEO FROM SDO 22 (EXAMPLE) 
FILL ZEROS (EXAMPLE) 




J-21 








ttlO-TK^3 
Volume 1 
Ch ? 

12 Get. 19T3 


6.1*3 S192 CYBKK 73 Processed Data Tapes 

This, section describes the Processed Data Tapes which are output by the CYtVER 73 
at JSC. *They consist of Conical Scan Line Data Tapes and Scan Line Straightened Data 
Tapes* *'■ : 

Tlie Conical Scan Line Data Tape contains data which has undergone scan angle and 
non-linearity corrections, calibration, and scaling. 

The Scan Line Straightened Data Tape format is very similar to the Conical Scan 
Line tape, but the data blocks do not contain either calibration or subframe status. 


t 
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S192 CONICAL SCAN LINK DATA TAPE HEADER RECORD 

(the format of this header record is identical to that of the PUP-CYBER Interface Tape 
Header Record.) Contents of certain bytes are different however. They are described 
as follows: 


1 1 ■ 

PDP-CYBER INTERFACE 

CONICAL SCAN LINE 

RECORD BYTE NO. 

CONTENT 

CONTENT ; 1 

.':j 

100-101 

2880 

3060 

1787-1788 

1260 

1258 


-4 ) 




REPRODUCIBILITY OF THE 

ORIGINAL PAGE IS POOR 
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S192 CONICAL SCAN LINK DATA TAPE ANCILLARY BLOCK 

(The format and content of this ancillary block is identical to that of the PDP -CYBER 
Interface Tape ancillary block,) 


MtO-'i'RSte 
Volume 1 

• Chmif.e 3 

». March 22, 1974 


S192 CONICAL SCAN LIKE DATA. TAPE* 

RECORD 1 OF DATA SET 

DESCRIPTION 


FRAME COUNTER 
VIDEO BLOCK 
ANCILLARY BLOCK 

18 SAMPLES OF CALIBRATION FROM SDO 1 
1240 SAMPLES OF VIDEO FROM SDO 1 
18 SAMPLES OF CALIBRATION FROM SDO 2 
1240 SAMPLES OF VIDEO FROM SDO 2 

2779-3060 , FILL ZEROS 

RECORD 2 OFi DATA SET j 

BYTE NO. DESCRIPTION 

1-2 FRAME: COUNTER 

3-2518 VIDEO BLOCK (CONTINUED) 

3-20 18 SAMPLES OF CALIBRATION FROM SDO 3 

21-1260 1240 SAMPLES OF VIDEO FROM SDO 3 

1261-1278 18 SAMPLES OF CALIBRATION FROM SDO 4 

I 1279-2518 1240 SAMPLES OF VIDEO FROM SDO 4 


2519-3060 

1 ' 

FILL ZEROS 


RECORD 3 OF DATA SET 

! 

r ; : J:,/ 


BYTE NO. 

DESCRIPTION 


1-2 

FRAME COUNTER 


3-2518 | 

VIDEO BLOCK (CONTINUED) 


3-20 i 

21-1260 

18 SAMPLES OF CALIBRATION FROM SDO 5 
1240 SAMPLES OF VIDEO FROM SDO 5 



1261-1278 a 18 SAMPLES OF CALIBRATION FROM SDO 6 

1279-2518 1240 SAMPLES OF VIDEO FROM SDO 6 

2519-3060 , FILL ZEROS 


♦VIDEO SAMPLES FROM SDO* S 15, 16 AND 21 ARE IN WATTS/CM 2 /STER/MICRON; FROM ALL OTHER 
SDO’S IN MILLIW ATTS /CM 2 /STER/MICRON . 




BYTE- NO. 


3-2778 

3^262 

263-280 

281-1520 

1521-1538 

1539-27718 


1* 1 10— T K 5 
Volume 1 
Change 3 
March 22, 1974 


Si 92 CONICAL SCAN LINK DATA TAPE (CONTINUED) 


RECORD 4 OF DATA SET 


BYTE NO. 


DESCRIPTION 


3-2518 

3-20 

21-1260 

1261-1278 

1279-2518 

2519-3060 1 


FRAME COUNTER 

VIDEO BLOCK (CONTINUED) 

18 SAMPLES OF CALIBRATION FROM 3 DO 7 
1240 SAMPLES OF VIDEO FROM SDO 7 
18 SAMPLES OF CALIBRATION FROM SDO 8 
1240 SAMPLES OK VIDEO FROM SDO 8 

FILL ZEROS 


RECORD 5 OF DATA SET 


BYTE NO. 


3-2518 


3-20 

21-1260 

1261-1278 

1279-2513 

2519-3060 

RECORD 6 OF DATA SET 


DESCRIPTION 

i ■. ' . 

FRAME COUNTER 

VIDEO BLOCK (CONTINUED) 

18 SAMPLES OF CALIBRATION FROM SDO 9 
1240 SAMPLES OF VIDEO FROM SDO 9 
18 SAMPLES OF CALIBRATION FROM SDO 10 
1240 SAMPLES OF VIDEO FROM SDO 10 

FILL ZEROS 


BYTE NO. 


3-2518 

3-20 

/21-1260 
1261-1278 
(1279-2518 ; 

2519-3060 | 

■ I I: 

RECORD 7 OF DATA SET 


DESCRIPTION 
FRAME COUNTER ; 

VID^O BLOCK (CONTINUED) 

I ' . I . : :V -v' ; ' 

18 SAMPLES OF I CALIBRATION FROM SDO 11 
1240 SAMPLES OF VIDEO FROM SDO 11 
18 SAMPLES OF CALIBRATION FROM SDO 12 
1240 SAMPLES OF VIDEO FROM SDO 12 

FILL ZEROS 


BYTE NO. 


3-2518 

3-20 

21-1260 

1261-1278 

1279-2518 

2519-3060 


DESCRIPTION 
FRAME COUNTER 

• .I -..-. •••• ;• ' . • • v • 

VIDEO BLOCK (CONTINUED) 

18 SAMPLES OF CALIBRATION FROM SDO 13 
1240 SAMPLES OF VIDEO FROM SDO 13 
18 SAMPLES OF CALIBRATION FROM SDO 14 
1240 SAMPLES OF VIDEO FROM S DO 14 

FILL ZEROS 


n i<v;Y 








$192 CONICAL SCAN LINK DATA TAPE (CONTI NOE))) 


RKCORD 3 OK DATA SET 


BYTE NO. 


DESCRIPTION 


RECORD 9 OF DATA SET 


FRAME COUNTER 


3-2518 


VIDEO BLOCK (CONTINUED) 


3-20 
21-1260 
12 61-127 S 
1279-2518 


18 SAMPLES OF CALIBRATION* FROM SDO 15 
12 AO SAMPLES OF VIDEO FROM SDO 15 
18 SAMPLES OF CALIBRATION* FROM SDO 16 
1240 SAMPLES OF VIDEO FROM SDO 16 


2519-3060 


FILL ZEROS 


BYTE NO. 


DESCRIPTION 


FRAME COUNTER 


3-2518 


VIDEO BLOCK! (CONTINUED) 


3-20 

21-1260 

1261-1278 

1279-2518 


18 SAMPLES OF CALIBRATION FROM SDO 17 
1240 SAMPLES OF VIDEO FROM SDO 17 
18 SAMPLES OF CALIBRATION FROM SDO 18 
1240 SAMPLES OF VIDEO FROM SDO 18 


2519-3060 


FILL ZEROS 


RECORD 10 OF DATA SET 


DESCRIPTION 


FRAME COUNTER 


VIDEO BLOCK (CONTINUED) 


3-20 

21-1260 / 
1261-1278 
1279-2513 


18 SAMPLES OF CALIBRATION FROM SDO 19 
1240 SAMPLES OK VIDEO FROM SDO 19 
18 SAMPLES OF CALIBRATION FROM SDO 20 
1240 SAMPLES OF VIDEO FROM SDO 20 


2519-3060 


FILL ZEROS 


* SAMPLES 1-6 AND’ SAMPLES 13-18 AS RECORDED ON THE 28-TRACK F.RF.P TAPE ARE INTERCHANGED 
i FOR THIS OUTPUT TAPE SO THAT III CAL AND LO CAL WILL BE IN THE SAME ORDER FOR S DO'S 
15, 16, AND 21 AS THEY ARE EPR THE OTHER SDO* S . 


■ ■ ■ l ( ■. 

S192 CONICAL SCAN LINE DATA TAPE (CONTINUED) 

riiO-TH5 ! »3 
Vol iMiio; 1 
ChuiU'o 2 
12 Oct. 1973 

RECORD 11 OF DATA SET 



BYTE NO. .. . . 

DESCRIPTION 


1-2 

FRAME COUNTER 


3-2518 

VIDEO BLOCK (CONTINUED) 


3-20 

21-1260 

1261-1278 

1279-2518 

18 SAMPLES OF CALIBRATION* FROM SDO 21 
1240 SAMPLES OF VIDEO FROM SDO 21 
18 SAMPLES OF CALIBRATION FROM SDO 22 
1240 SAMPLES OF VIDEO FROM SDO 22 

2519-3060 

FILL ZEROS 

\ 


t 


* SAMPLES 1-6 Alii) 13-18 Al.' RECORDED OS TIIK 28-TRACK KKKP TAPE ARK 1NTKRCHANCED FOP. THIS 
OUTPUT TAPE SO THAT HI CAE AND 1.0 CAE KIEL HE IS Till: SAME ORDER FOR EDO’S 15, 16, AND 
21 AS THEY ARE POP. THE OTHER SDO’S. . ’ • 
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SKYLAB Wavelengths (Microns) Which Are Found in S-191 Tapes 

Received June 24, 1974 


( 1) 

.400 

A21 

(28) 

.620 

B27 

(55) 

.890 

A56 

( 2) 

. 405 

A22 

(29) 

. 630 

B28 

(56) 

.900 

A57 

( 3) 

.410 

A23 

(30) 

.640 

B29 

(57) 

.915 

B37 

(4) 

.415 

A24 

(31) 

.650 

B30 

(58) 

.930 

B38 

( 5) 

.420 

A25 

(32) 

.660 

B31 

(59) 

.945 

B39 

( 6) 

. 425 

A26 

(33) 

. 670 

B32 

(60) 

.960 

B40 

( 7) 

.430 

A27 

! (34 

> 

. 680 

B33 

(61) 

.975 

B41 

(8) 

. 435 

A28 

(35) 

. 690 

B34 

(62) 

. 990 

B42 

( 9) 

.440 

A29 

(36 

) 

.700 

B35 

(63) 

1.10 

B43 

(10) 

.445 

A30 

(37 

) 

.710 

B36 

(64) ; 

1.12 

B44 

(11) 

1 450 

A31 

(38 

) 

. 720 

A3 9 

(65) 

1..14 

B45 

(12) 

.460 

A3 2 

(39 

) 

.730 

A40 

(66) 

1.16 

B46 

(13) 

.470 

A3 3 

(40 

) 

.740 

A41 

(67) 

1.18 

B47 

(14) 

.480 

A34 

(41 

) 

.750 

A42 

(68) 

1.20 

B48 

(15) 

.490 

A3 5 

(42 

) 

,760 

A43 

(69) 

1.22 

B49 

(16) 

,500 

A3 6 

(43 

) 

.770 

A44 

(70) 

1.24 

B50 

(17) 

. 510 

A3 7 

(44 

) 

.780 

A45 

(71) 

1.26 

B51 

(18) 

. 52 0 

A3 8 

(45 

) 

.790 

A46 

(72) 

1.28 

B52 

(1 9) 

. 530 

B18 

(46) 

.800 

A47 

(73) 

1.30 

B53 

(20) 

540 

B19 

(47) 

.810 

A48 

(74) 

1.32 

B54 

(21) 

.550 

B20 

(48) 

.820 

A49 

(75) 

1.34 

B55 

(22) 

.560 

B21 

' (49) 

.830 

A50 

(76) 

1.36 

B56 

(23) 

.570 

B22 

: (50) 

.840 

A51 

(77) 

1.38 

Al 

(24) 

.580 

B23 

(51) 

.850 

A52 

(78) 

1.40 

A2 

(25) 

.590 

B24 

(55 

!> 

.860 

A53 

(79) 

1.44 

A3 

(26) 

.600 

B25 

(53) 

.870 

A54 

(80) 

1.48 

A4 

(27) 

.610 

B26 

(54) 

.880 

A55 

(81) 

1.50 

A5 


s& ssa’-w 



SKYLAB Wavelengths (Microns) Which Are Found in S-191 Tapes 
Received June 24, 1974 (Continued) 


( 82) 

1.52 

A6 

(109) 

2.32 

B13 

(136) 

8.2 

B98 

( 83) 

1.54 

A7 

(110) 

2.36 

B14 

(137) 

8.3 

B99 

( 84) 

1. 56 

A8 

(111) 

2.40 

B15 

(138) 

8.4 

B100 

(85) 

1.58 

A9 

(112) 

2.44 

B16 

(139) 

8.5 

B101 

( 86) 

1.60 

A10 

(113) 

2.48 

B17 

(140) 

8.6 

B102 

( 87) 

1.62 

All 

(114) 

6.0 

A93 

(141) 

8.7 

B103 

( 88) 

1.64 

A12 

(115) 

6.1 

A94 

(142) 

8.8 

B104 

( 89) 

1.66 

A13 

(116) 

6.2 

A95 

(143) 

8.9 

B105 

( 90) 

1.68 

A14 

(117) 

6.3 

A96 

(144) 

9.0 

B106 

< 91) 

1.70 

A15 

(118) 

6.4 

A97 

(145) 

9.1 

B107 

( 92) 

1.72 

A16 

(119) 

6. 5 

A98 

(146) 

9.2 

B108 

( 93) 

1.74 

A17 

(120) 

6.6 

A99 

(147) 

9.3 

A58 

(94) 

1.76 

A18 

(121) 

6.7 

A100 

(148) 

9.4 

A59 

( 95) 

1.78 

A19 

(122) 

6.8 

A101 

(149) 

9.5 

A60 

( 96) 

1.80 

A20 

(123) 

6.9 

A102 

(150) 

9.6 

A61 

(97) 

1.84 

B1 

(124) 

7.0 

A103 

(151) 

9.7 

A62 

( 98) 

1.88 

B2 

(125) 

7.1 

A104 

(152) 

9.8 

A63 

( 9! 

9) 

1.92 

B3 

(126) 

7.2 

A105 

(153) 

9.9 

A64 

(10 

0) 

1.96 

B4 

(127) 

7.3 

A106 

(154) 

10. 

A65 

( io 

l) 

2.0 

B5 

(128) 

7.4 

A107 

(155) 

10.1 

A66 

(10 

2) 

2.04 

B6 

(129) 

7.5 

A108 

(156) 

10.2 

A67 

(10 

3) 

2.08 

B7 

(130) 

7.6 

A109 

(157) 

10.3 

A68 

(104) 

2.12 

B8 

(131); 

7.7 

B93 

(158) 

10.4 

A69 

•v : . : ■ j 

(lop) 

2.16 

B9 

(132) 

7.8 

B94 

(159) 

10.5 

A70 

(106) 

2.20 

BIO 

(133) 

7.9 

B95 

(160) 

10.6 

A71 

(107) 

2.24 

Bll 

(134) 

8.0 

B96 

(161) 

10.7 

A72 

(108) 

2.28 

B12 

(135) 

8.1 

B97 

(162) 

10.8 

A73 
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SKYLAB Wavelengths (Microns) Which Are Found in S-191 Tapes 
Received June 24, 1974 (Continued) 


(163) 

10.9 

A74 


(190) 

13.6 

A 83 

(164) 

11.0 

B57 


(191) 

13.7 

A 84 

(165) 

11.1 

B58 


(192) 

13.8 

A85 

(166) 

11.2 

B59 


(193) 

13.9 

A86 

(167) 

11,3 

B60 


(194) 

13.95 

A87 

(168) 

11.4 

B61 


(195) 

14.00 

A88 

(169) 

11.5 

B62 


(196) 

14.05 

A89 

(170) 

11.6 

B63 ] 


(197) 

14.10 

A90 

(171) 

11.7 

B64 


(198) 

14.15 

A91 

(172) 

11.8 

B65 j 


(199) 

14.20 

A92 

(173) 

11. 9 

BOO 


(200) 

14.25 

B75 

(174) 

12.0 

B67 


(201) 

14.30 

B76 

(175) 

12.1 

B68 


(202) 

14,35 

B77 

(176) 

12.2 

B69 


(203) 

14.40 

B78 

(177) 

12.3 

B70 


(204) 

14.45 

B79 

(178) 

12.4 

B71 


(205) 

14.50 

B80 

(179) 

12.5 

B72 


(206) 

14. 55 

B81 

(180) 

12.6 

B73 


(207) 

14.60 

B82 

(181) 

12.7 

B74 


(208) 

14.65 

B83 

(182) 

12.8 

A75 


(209) 

14.70 

B84 

(183) 

12. 9 

A76 


(210) 

14.75 

B85 

(184) 

13,0 

A77 


(211) 

14.80 

B86 

(185) 

13.1 

A78 

** 

(212) 

14.90 

B87 

(186) 

13.2 

A79 


(213) 

15.0 

B88 

(187) 

13.3 

A80 


(214) 

15.1 

B89 

(188) 

13. 4 

A81 


(215) 

15.2 

B90 

(189) 

13.5 

A82 


(216) 

15.3 

B91 





(217) 

15.4 

B92 


_ jl j 
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SKYLAB Wavelengths (Microns) Which Are Found in S-191 Tapes 

Received January 1975 


( 1) 

.400 

A21 

(28) 

.620 

B30 

(55) 

.920 

A58 

< 2) 

.405 

A22 : 

(29) 

. 630 

B31 

(56) 

.940 

A59 

( 3) 

.410 

A23 

(30) 

.640 

B32 

(57) 

.960 

A60 

( 4 ) 

.415 

A24 

(31) 

.650 

B33 

(58) 

.980 

B41 

( 5) 

.420 

A25 

(32) 

.660 

B34 

(59) 

1.00 

B42 

(6) 

.425 

A26 

i (33) 

.670 

B35 

(60) 

1.02 

B43 

( 7) 

.430 

A27 

(34) 

.680 

B36 : 

(61) 

1,04 

B44 

( 8) 

.435 

A28 ; 

(35) 

; 

.690 

B37 

(62) 

1,06 

B45 

( 9) 

.440 

A29 

(30) 

.700 

B38 

(63) 

1. 08 

B46 

(10) 

.445 

A30 

(37) 

.710 

B39 

(64) 

1,10 

B47 

(11) 

.450 

0 

A31 

i 

| (38) 

.720 

A41 

(65) 

1.12 

B48 

(12) 

.460 

A3 2 

i (39) 

.730 

A42 

(66) 

1.14 

B49 

(13) 

*470 

> 

CO 

CO 

(40) 

: .740 

A43 

(67) 

1.16 

B50 

(14) 

.480 

A34 

(41) 

.750 

A44 

(68) 

1.18 

B51 

(15) 

.490 

A3 5 

(42) 

.760 

A45 

(69) 

1.20 

B52 

(16) 

.500 

A3 6 

(43) 

. 770 

A46 

(70) 

1.22 

B53 

(17) 

.510 

A3 7 

(44) 

.780 

A47 

(71) 

1.24 

B54 

(18) 

.520 

A3 8 

(45) 

.790 

A48 

(72) 

1.26 

B55 

(19) 

.530 

B21 

(46) 

.800 

A49 

(73) 

1.28 

B56 

(20) 

.540 

B22 

(47) 

.810 

A50 

(74) 

1.30 

B57 

(21) 

.550 

B23 

(48) 

.820 

A51 

(75) 

1.32 

B58 

(22) 

.560 

B24 

(49) 

.830 

A52 

(76) 

1.34 

B59 ! 

(23) 

,570 

B25 

(50) 

.840 

A53 

(77) 

1.36 

B60 i 

(24) 

.580 

B2G 

(51) 

.850 

A54 

(78) 

1.38- 

A1 

(25) 

.590 

B27 

(52) 

.860 

A55 

(79) 

1.40 

A3 

(26) 

.600 

B28 

(53) 

.880 

A56 

(80) 

1.44 

A3 

(27) 

.610 

B29 

(54) 

.900 

A57 

(81) 

1.48 

A4 


K-5 




SKYLAB Wavelengths (Microns) Which Are Found in S-191 Tapes 
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i 

! 




( 82) 

1.50 

A5 

(109) 

2.28 

B12 

(136) 

8.10 

B105 

( 83) 

1.52 

A6 

(HO) 

2.32 

B13 

(137) 

8.20 

B106 

( 84) 

1.54 

A7 

(Hi) 

2.36 

B14 

(138) 

8.30 

B107 

(85) 

1.56 

A8 

(112) 

2.40 

B15 

(139) . 

8.40 

BIOS 

( 86) 

1.58 

A9 

(113) 

2.44 

B16 

(140) 

8.50 

BIOS 

{ 87) 

1.60 

A10 

(114) 

2.48 

B17 

(141) 

8.60 

B110 

( 88) 

1. 62 

All 

(115) 

6.00 

A101 

(142) 

8.70 

Bill 

( 89) 

1. 64 

A12 

(116) 

6.10 

A102 

(143) 

8.80 

B112 

( 90) 

1. 66 

A13 

(117) 

6.20 

A103 

(144) 

8.90 

B113 

( 91) 

1.68 

A14 . 

(118) 

6.30 

A104 

(145) 

9.00 

B114 

( 92) 

1.70 

A15 

(119) 

6.40 

A105 

(146) 

9.10 

B115 

( 93) 

1.72 

A16 

(120) 

6.50 

A106 

(147) 

9.20 

B116 

(94) 

1.74 

A17 

(121) 

6.60 

A107 

(148) 

9.30 

A61 

( 95) 

1.76 

A18 

(122) 

6.70 

A108 

(149) 

9.40 

A62 

( 96) 

1.78 

A19 

(123) 

6.80 

A109 

(150) 

9.50 

A63 

( 97) 

1. 80 

A20 

(124) 

6.90 

A110 

(151) 

9.60 

A64 

( 98) 

1.84 

B1 

(125) 

7.00 

Alii. 

(152) 

9.70 

A65 

( 99) 

1.88 

B2 

(!26) 

7.10 


(153) 

9.80 

A66 

(100) 

1.92 

B3 

(127) 

7.20 

A113 

(154) 

9.90 

A67 

(101) 

1.96 

B4 

(128) 

7.30 

A114 

(155) 

10.00 

A68 

(102) 

2.00 

B5 

(129) 

7.40 

A115 

(156) 

10.10 

A69 

(103) 

2.04 

B6 

(130) 

7.50 

.A 

A116 

(157) 

10.20 

A70 

(104) 

2.08 

B7 

(131) 

7. 60 

A117 

(158) 

10.30 

A71 

(105) 

2.12 

B8 

(132) 

7.70 

B101 

(159) 

10.40 

A72 

(106) 

1 ; . 

2.16 

B9 

(133) 

7.80 

B102 

(160) 

10.50 

A73 

(107) 

2.20 

BIO 

(134) 

7.90 

B103 

(161) 

10.60 

A74 

(108) 

2.24 

Bll 

(135) 

8.00 

B104 

(162) 

10.70 

A75 
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(1G3) 

10. 80 

A76 

(191) 

13.60 

A89 

(164) 

10.90 

A77 

(192) 

13.70 

A90 

(165) 

11.00 

B61 

(193) 

13.80 

A91 

(166) 

11.10 

B62 

(194) 

{ 

13.90 

A9 

> 

(167) 

11.20 

B63 

(195) 

13.95 

A93 

(168) 

11.30 

B64 

(196) 

14.00 

A 94 

(169) 

11.40 

B65 

(197) 

14. 05 

A95 

(170) 

11.50 

B66 

(198) 

14.10 

A96 

(171) 

11.60 

B67 

(199) 

14.15 

A97 

(172) 

11.70 

B68 

(200) 

14.20 

A18 

(173) 

11.80 

B69 

(201) 

14.25 

B81 

(174) 

11.90 

B70 

(202) 

14.30 

B82 

(175) 

12.00 

B71 

(203) 

14.35 

B83 

(176) 

12.10 

B72 

(204) 

14.40 

B84 

(177) 

12.20 

B73 

(205) 

14. 45 

B85 

(178) 

12.30 

B74 

(206) 

14. 50 

B86 

(179) 

12.40 

B75 

(207) 

14.55 

B87 

(180) 

12.50 

B76 

(208) 

14.60 

B88 

(181) 

12.60 

B77 

(209) 

14. 65 

B89 

(182) 

12.70 

B78 

(210) 

14.70 

B90 

(183) 

12.80 

A81 

(211) 

14.75 

B91 

(1% 

12.90 

A 82 

(212) 

14.80 

B92 

(185) 

13.00 

A83 

(213) 

14. 90 

B93 

(186) 

13.10 

A 84 

(214) 

15. 00 

B94 

(187) 

13.20 

A85 

(215) 

15.10 

B95 

(188) 

13.30 

A 86 

(216) 

15.20 

B96 

(189) 

13.40 

A87 

(217) 

15.30 

B97 

(190) 

13. 50 

A88 

(218) 

15.40 

B98 


0 


GSFC S-191 Data Tapes 




;*fV, 



The GSFC version of Houston JSC's S-191 data tape is a 9-track, density 3, 

1600 bpi tape with record form VBS, a logical record sh o of 1452 bytes, and 
block size of 29044 bytes. The logical record size of 1452 bytes includes the 
4 bytes (needed in IBM VBS) to contain the size of that record. Also, the 
29044 bytes include the 4 bytes needed to contain the actual block size (IBM 
"block size" is sometimes called "physical record size"). 

To be explicit, if X is the number of bytes needed to contain the record, 

Y — X + 4 is the logical record size, and Z = N * Y + 4 is the block size, where 
N is the number of logical records in the file, the value of X is 1448 bytes, and 
the value of N is 20. 

In each case, the 4 bytes indicating record lengths precede that record, so that 
the first 32 bits (where the record 16 bits are zeros) of the physical block 
contain the block size. This is followed by the logical records of 32 bits (where 
the second 16 bits contain IBM indicators as to whether the record is continued, 
"spill over" from a previous block, etc.). 

Since the IBM word size is 32 bits, or 4 bytes, the size of the output array is 
clearly 362 words. The contents of that array are listed below: 


Description 

Month 
Day 
Year 
Hour 
Minute 
Second; 


Time data 
was taken 


Floating Point Real 
R*4 

(32 bits, or 

4 bytes, each) Bytes 


Halfword Integer 
1*2 

(16 bits, or 
2 bytes, each) 

1 

2 

3 

4 

5 

6 


1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

K-8 


Halfword Integer Floating Point Real 


1*2 

(16 bits, or 
2 bytes, each) 

R*4 

• (32 bits, or 
4 bytes, each) 

Itytes 

Description 

- 

4 

13-16 

Latitude (deg) 

' - 

5 

17-20 

Longitude (deg + w) 

- 

6 

21-24 

Altitude (km) 

- 

7 

25-28 

Yaw (deg) 


8 

29-32 

Pitch (deg) 


9 

33-36 

Roll r (deg) 

- 

10 \ 

37-40 

Sun zenith angle (deg) 

- 

11-14 

41-56 

Four pointing 
angle (deg) 

- 

15-188 

57-752 

174 wavelengths 
(in order) (microns) 


189-362 

753-1448 

174 radiance values 
(in corresponding^ 
order) (watts/cm’V 
micron/ster) 




Output Array of NWT191 Found in GSFC Version S-191 Tapes 
Received January 1975 

Halfword Integer Floating Point Real 


1*2 

R*4 




(16 bits, or 

(32 bits, or 




2 bytes, each) 

4 bytes, each) 

Bytes 

Description 

1 

- 

1-2 

Month \ 


2 

- 

3-4 

Day j 


3 

- 

5-6 

Year / 

Time data 

4 

. - 

7-8 

Hour \ 

was taken 

5 

- 

9-10 

Minute 


6 

- 

11-12 

Second 1 


- 

4 

13-16 

. Latitude 

(deg) 

- 

5 

17-20 

Longtitude 

(deg) 

- 

6 

21-24 

Altitude! 

(km) 


7 . 

25-28 

Yaw 

(deg) 

- 

8 

29-32 

Pitch 

(deg) 

- 

9 

33-36 

Roll 

(deg) 

- 

10 

37-40 

Sun zenith angle (deg) 

- 

11-14 

41-56 

Four pointing 




angles 

(deg) 


15-232 

57-928 

218 wavelengths 
(in order) (microns) 




233-450 929-1800 218 Radiance values 

(in corresponding , i J 

order) (watts/ cm 1, / j 

micron/ster) 



SKYLAB - Originated Common Trace 


Main Program Package Name: T91 
COMMON Name: VALUES 


Variable* - 

Type 

Dimension 

Initialized or Reset 
in Subroutine 

Referenced in 
Subroutine 

ITIMPT 

1*4 

3, 500 

T91 (Main) 

PTING1 

PTING 

R*4 

4,500 

T91 (Main) 

PTING1 

ITIMZN 

1*4 

3,500 

T91 (Main) 

ZENPTN 

ZENVL 

R*4 

500 

T91 (Main) 

ZENPTN 

NOPT 

1*4 

| 

- 

T91 (Main) 

PTING1 

NOZE 

1*4 

- 

T91 (Main) 

ZENPTN 

ISDTPT 

L*4 

- 

T91 (Main) 

PTING1 

ISDTZN 

L*4 

- 

T91 (Main) 

1 ZENPTN 


For descriptions, see Section 2. 2. 1. 4. 


SKYLAB - Originated Common Trace 


Main Program Package Name: QUICK3 
COMMON Name: VALUE 


Variable^ 

Type 

Dimension 

Initialized or Reset 
in Subroutine 

Referenced in 

Subroutine 

LR3 

1-4 

- 

Main (QUICK3) 

TEMBRH (ver 2) 
REFLEX (vm 2) 
CONTOU (ver 2) 
CLUTIIK (ver 2) 

LC3 

1*4 


Main (QUICK3) 

TEMBRH (ver 2) 
REPLE1 (ver 2) 
CONTOU (ver 2) 
CLUTIIK (ver 2) 

TBB 

R*4 

(200,200) 

Main (QUICK3) 
TEMBRH(ver 2) 
REFLEl(ver 2) 
CLUTHK(ver 2) 

TEMBRH (ver 2) 
REFLE1 (ver 2) 
CONTOU (ver 2) 
CLUTHK (ver 2) 

PLTTEM 

L*4 


Main (QUICK3) 

TEMBRH (ver 2) 
CONTOU (ver 2) 

PLTI1EF 

L*4 

■■ 

Main (QUICK3) 

TEMBRH (ver 2) 
REFLE.1 (ver 2) 
CONTOU (ver 2) 

PLTCLD 

L*4 


Main (QUICK3) 

TEMBRH (ver 2) 
REFLE1 (ver 2) 
CONTOU (ver 2 

ANG 

L*4 


Main (QITCK3) 

REFLE1 (ver 2) 


For descriptions, see Section 4. 2. 1.4. 


L-3 





SKYLAB - Originated Common Trace 


Main Program Package Name: QUICK 
COMMON Name: VALUES 


Variable^ 

Type 

Dimension 

Initialized or Reset 
in Subroutine 

Referenced in 
Subroutine 

R1 

R*4 

(35, 67) 

REFLE1 

REFLE1 

REFLE2 

CLUTHK 

T1 

R*4 

(35,67) 

CLUTHK 

DELTA1 : 

CLUTHK 

WRITT 

RR 

R*4. 

(35,67) 

REFLE1 

REFLE2 

REFLE3 

WRITT 


1 I) 

Y1 

R*4 

(35,67) 

CLUTHK 

REFLE2 

REFLE3 


XI 

R*4 

(35,67) 

REFLE2 

REFLE3 

REFLE2 

REFLE3 

j ' •>’ ' .. . 

j.- • ; .. 

D1 

R*4 

(35, 67) 

REFLE2 

REFLE3 

REFLE2 

REFLE3 


E 

R*4 

(35,67) 

DELTA1 

; i 


. i • : • . 

El i 

R*4 

(35, 67) 

DELTA 1 

WRITT 


TBB 

R*4 

(35,67) 

TEMBRH 

WRITT 

^ . ; \ ' : . 

R4 

R*4 

(35,67) 

REFLE3 

REFLE3 

. 'j\'' : y . : 

LC 

1*4 


Main (QUICK) 

REFLE1 

CLUTHK 

WRITT 


LR 

1*4 

*• 

Main (QUICK) 

REFLE1 

CLUTHK 

WRITT 


For descriptions, see Section 4. 1.1. 4. 
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SKYLAB - Oilginated Common Trace (Continued) 


j Initialized or Reset Referenced in 

Variable Type Dimension in Subroutine Subroutine 


LC2 

1*4 


Main (QUICK) 

REFLE2 

CLUTIIK 

WRITT 

LR2 

1*4 


Main (QUICK) 

REFLE2 

CLUTIIK 

WRITT 

LR3 

1*4 

- 

Main (QUICK) 

TEMBRH 

WRITT 

LC3 

1*4 

- 

Main (QUICK) 

TEMBRH 

WRITT 

LR4 

1*4 


Main (QUICK) 

REFLE3 

CLUTHK 

WRITT 

LC4 

1*4 


Main (QUICK) 

REFLE3 

CLUTHK 

WRITT 

Plot 1 

! L*4 f~ ; 

- 

Main (QUICK) 

- 

Plot 2 

L*4 

- 

Main (QUICK) 

- 

Plot 3 

L*4 

- 

Main (QUICK) 

- 

Plot 4 

L*4 

- 

Main (QUICK) 

- 

Plot 5 

L*4 

- 

Main (QUICK) 

- 


For descriptions, see Section 4. 1.1.4, 


L-5 


NonSKYLAB - Originated Common Trace 



Main Program Package Name: Temperature Humidity Profile Program 
COMMON Name: CHA 


1 

Variable 

Type 

Dimension 

Initialized or Reset 
in Subroutine 

Referenced in 
Subroutine 

RMSTMP 
(or Sum) 

R*4 

- 

ESTLSQ 

- 

RMS 

R*4 

— 

ESTH20 

ESTH20 


o 


For descriptions, see Section 3. 1.3. 4. 

L-6 



idity Profile Program 


Initialized or Reset Referenced in 
in Subroutine Subroutine 

TRANSC ESTII20 

NCLOUD 

BLDATTHP TRANSC 


BLDATTHP TRNSIN 

(entry to 
TRANSC) 

BLDATTHP TRANSC 



Main Program Package Name: Temperature Humidity Profile Program 
COMMON Name: II2D 


Variable^ 

Type 

Dimension 

Initialized or Reset 
in Subroutine 

Referenced in 
Subroutine 

TO 

B*4 

(99) 

BLDATTHP 

ESTLSQ 

NCLOND 

QO 

R*4 

(99) 

BLDATTHP 

ESTH20 

DTAUDl 

ESTH2C) 

NCLOUD 

TAU 

R*4 

(28,100) 

DTANUDU 
ESTH20 
N CLOUD 
TRANSW 

ESTII20 

ESTLSQ 

NCLOUD 

RAD 

RAD 1120 

WATER 
(or CO, Cl 
C2,C3,C4, 
C5,C6,C7, 
C8) 

R*4 

(28,9) 

BLDATTHP 

DTAUDU 

TRANSW 


*For descriptions, see Section 3. 1.3. 4. 




ft V 

VS*' 


Main Program Package Name: Temperature Humidity Profile Program 


COMMON Name: 
Variable Type 

SI1LDT 

y 

Dimension 

Initialized or 
Reset in 
Subroutine 

Referenced 

in 

Subroutine 

Description 

TSVAL 

R*4 

(100) 

BLDATTHP 

1 

Shelter temp- 
erature array 
for times of 
tape reading 

TIMES 

R*4 

(100) 

BLDATTHP 

1 

Times associ- 
ated with tape 
scans 



NOTE: These were arbitrarly set to zero and never 

actually utilized since the data did not warrant 
further program development. 


4. >•, 


Would have been referenced in GETSHL but this is presently a dummy routine 


L-9 




Main Program Package Name: Temperature Hu midity Profile Program 





^Referenced to other S00091 programs not suitable for SKYLAB Cloud studies 
conversion. 



L-10 


Main Program Package Name: Temperature Humidity Profile Program 
COMMON Name: XXX . 

1 Initialized or Reset Referenced in 

Variable Type Dimension in Subroutine Subroutine 


TS 

R*4 

' 

BLDATTHP 

... r ’ 

ESTII20 

NCLOUD 



PS 

R*4 

- 

BLDATTHP 

NCLOUD 



PT 

R*4 

- 

BLDATTHP 

NSTH20 

NCLOUD 

! i 

i 


DH 

R*4 

- 

NCLOUD 

. . ! . . . j • ' 

ESTH20. 

NCLOUD 

: i 


N 

1*4 - 


BLDATTHP 

ESTH20 

ESTLSQ 

NCLOUD 

■ ■. . 


NL 

1*4 


BLDATTHP 

E;STH20 

ESTLSQ 

NiCLOUD 

L7.: 


R 

R*4 

: i * i i 

BLDATTHP 

ESTLSQ 

NCLOUD 

j 



MTOTAL 

: i 

1*4 '■ 

i 

1 ! 1 

BLDATTHP 

NCLOUD 



P ^ L. 1 

R*4. . 

99 

NCLOUD 

ESTH20 

nJcloud 


T1 

. i 

R*4 

99 

ESTLSQ 

NCLOUD 
ESTH20 
RADH20] 
TRANS C 

TRANSW 

1 

thru 
> call 

| sequences 

HOTGRD 

L*4 


NCLOUD 

ESTH20 

NCLOUD 




For descriptions, see Section 3. 1.3.4. 


Main Pi'ogram Package Name: Temperature Humidity Profile Program 


COMMON Name: ZZZ 


Initialized or Reset Referenced in 


Variable Type Dimension in Subroutine 


Subroutine 


R*4 (22) 

R*4 (22, 100) 


ESTLSQ 


ESTLSQ 

ESTLSQ 


L For descriptions, see Section 3. 1.6.4* . 
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APPENDIX M - TABLE OF IRRADIANCE VALUES USED AS BASIS FOR 
SUBTASK 1 INTERPOLATION ROUTINES 


JREPRODUCffilLJTy OF mu 
ORIGINAL PAGE B POOR 


coi/m spectral iiiwspiAt;cr - ftaupaio curve 

X Wavelength lit micrometer* 1 . > ■ J . 

V ■“ Solar ftroctiMl i r radiance averaged over email bandwidth centered At X, in K h wxT* 

*<7-X - Integrated col^t irradiance in the wavelength range o to X, in W m~* 

i*. » - Percentage of solar constant associated with wavelengths shorter than X 

-2 . 

Solar constant - 1353 Km 

Kotei lines indicate change in wavelength interval of integration 





,255 m.o 

•2(0 130 
» ?C5 185 

.270 232 

.275 ? C4 
.280 222 
,255 315 

.200 **82 

,?®5 58*4 

• 300 51** 

.305 503 

.310 665 

.316 7(4 

.320 830 
.325 675 
.330 1056 
.335 1061 

• 3f* 0 10 7*. 

• 3|*5 1066 
.350 1063 
.355 1083 

.360 1066 
.365 1132 
.370 1161 

• 375*1157 

• 38 0*1120 

• 3 t S5l 1 0 9 8 
.350:1063 

• 3j?5 • 1 1 8 6 
.*.00 : 1*» 29 
.1*05 16**** 

• MO 1751 

• 4'l6 1776 
•4?ojl747 
.655,1663 
.<•130 1626 

• Vj!5i:6(3 

• 4*,o|i8 10 

• Vf.5 16 22 

• 45 0 J?0 0 6 
.45512057 


• %70 , ?023 
.47S;?044 

• 48 0.20 7 4 


485H676 
1*9 0{ 16 8 b 


1.3168 
1.6260 
1.5356 
2.2736 
2.6306 
3 .0 666 

316516 
4.4391 
5.6610 
6*» 57 1 6 
7.6366 
6.6791 
10.6716 
13.6306 
16.3816 
19. 1791 



22,4041 

1.655 

26.0366 

1.924 

30.0216 

2.218 

34.5341 

2.55? 

36,6191 

2.626 

44.6691 

3.323 

50.3566 

3.721 

55.7141 

4.117 

61.1191 

4.517 

66i$591 

4.616 

71,9366 

5.316 

77.4366 

5.723 

83*2191 

6.150 

89*0641 

6.582 

64,7566 

7.003 

1C0L3016 

7.413 

105* 7916! 

7,816 

Ill 1.5 091 

8.241 

118.0541 

6.7 25 

125.7366 

9.263 

134 •224 

6.6 20 

143.026 

10.571 

151.936 

11.222 

4 AX, 4 *4 

i U . r.-il 

168.744 

i 12.4 73 

177.024 

I 13.083 

185.706 

j 13.725 

165.036 

1 14.415 

204. 856 

115.140 

215.014 

15.691 

226k321 

16.653 

225.626 

117.413 

245.839 

| 18.167 

256.001 

18.621 

266.266 

1 16.681 

2 7fc..:i 

' ? C . 4 33 

286.235 

>21 ,155 

296.011 

*,21.8 78 

135.764 

j2?.56'» 

316.621 

7?. 312 


54 G; 17 6 2 
5 46 17 54 
550 1725 
555 17 2 0 

560 1665 
565 17 05 

57 0 1 7 12 
575 1719 

58 oj 17 15 
5 85J1712 
56 0; 1 7 0 C 
555 1662 
600 1666 
606 1647 


61 1625 

62 16D2 
62 1570 

64 1544 

65 1511 

66 1486 

67 1456 

68 1427 

66 1402 

70 13 05 

71 1344 

72 1314 

73 1260 

74 1260 

75 1235 

76 1211 

77 1105 

78 1156 

76 1124 

80 1106 

81 1C 65 

82 10 60 

*3 1026 
84 10 12 

6 5 g o q 
6 € 668 

67 647 
88 626 
86 608 
60 861 


324,626 (24.015 
3 34.2 14 -24,701 
343.376 25,379 
352* 561 [26*056 
361.826t26.742 
370.676*27.418 
376. 676128. 084 
3 8 8, C 2 1 12 8, 737 
397.51 9|26, 350 
406.131 30. 017 


I. 55 I 2(7 

1186.106 

6:7.665 

1.69! 245 

1166. 9C6 

66.611 

1.65! 223 

1 210.609 

89.475 

1.70 202 

1221.234 

90.261 

1.75 1«0 

1230.764 

90.667 

1.8 0’ 156 

1239.259 

61.563 

1 • 71 5 1 142 

1246.784 

62.149 

1.60 126 

1253,464 

92.644 

1.65 114 

1259.484 

93.086 

2.00 103 

1264.509 

63.469 



466.284 36.602 
515.469 38.093 
531.326 39.270 
546.695 40.421 

5 6 2,1 74 4 1.550 
577.156142.657 
551.Sfc6j43.744 

606.284 44.810 
620.425 45.855 
634.264 46.879 

647.849 47.682 
661.139 48.864 
674.159 145.826 
686. 909)50.769 
669.364 (51,691 
711.614152.595 
723.594j53.480 
735.314)54.346 
740.779155.194 
757.654150.023 

76 8 .966 I 56 . 8 34 
779. 694157.627 
7 90.174158.401 

6 0 0 • 4 16 1 59. 1 5 8 
810. 434.59. 899 
620. 224160. 622 
8 2 6. 799 ! 6 1.330 
836.164162.022 
848.334J62.700 
857.32gj63.365 

806. 184 1(4. 016 
874. 926.64. 665 
883. 4 *65. 304 
8O7.084 65.934 
600.506 66.556 
60 8, 764 '67.168 
6l6.409l67.76S 
624.846,68.355 
632. 606*68*628 
64 0. 184 ‘(S. 4 8 8 


2. 105 
4.>35 6 

6.511 10 

8.404 ,12 
. 2 * t 4 ?8 12 3 3. *»W r f 0.106 16 

I! • * 9 I . 36 7 110 4 .756 ,81.652 

I. 35| 358 1123.634 81.047 

!V*s 0 I 337 1 141.006 «84.33i 
ll • 4 5 j 312 I 157.2*4 ,86. <30 

II. 63 288 1 l 77.234 *86.636 


1274.556 
1283. 0C9 
1260.409 
1266.959 
1302.606 
1307. 956 
1312.509 

1316. 609 
1320,306 

1323.609 

1326.459 
1 328. 689 
1330.979 
1332.769 
1334. 329 
1335.734 
1337,024 
1338.194 
1339.264 
1360.254 


94,2024 
94,8269 
95.3739 
95,8560 
96.2903 
96.6710 
97. 0073 
97.3103 
97.5638 
97.6277 

98.0383 

96.2179 

98.3724 

96.5047 

96.6200 

98.7238 

98,8192 

98.9056 

68.6947 

99.0576 

96.12521 
99.10613 
99.24124 
69.29150 
99. 33740 
99.37605 
99.41676 
96.45127 
99.46299 
99.51219 


1,5200 

1346.2049 

69.71650 

.6900 

1350.6099 

99.82335 

.5850 

1351, 3974 

99.86155 

.3670 

1351, 8734 

99.91673 

• 2410 

1352.1774 

69.53520 

• 1650 

135?. 3834 

99.65420 

.1170 

1352.5214 

65.66462 

*0651 

1352. 6224 

96*972:9 

.06-34 

1352.69671 

I 66,67755 

• 0461 

1 352.7524 

| 66.66170 

.037109 

1352. 765 0- 

' 66.08485 

.029100 

1352.8231 

, 69.68730 

,923190 

IJC?. Kt,j 

99. 9 *• *21 

-•31.66 3 1 

! 1 3 52 .67 5.1 

‘ 46.56077 



0J.5; 0 C. *_JIJ!5 ? . S Q 56.5 ° ’02 

boVj'70 j 1352.64541 99 • 69*596 
002970 j 1352.66131 69.96765 
001(00 | 1352.9767 66.64650 


000361 1352.9427 99.46946 


flanigaacl 1352 
bob 061 6 Ci 1 J52 
00 CO 25 7 Ci 1362 

flOil212AC.X3.5 2 

00003522 1352 
0 0 0 0 016® 135? 
33 00 9 370 1362 
bomb Jv 136? 
0 0 003 31 1: 1 35? 
OOCCOOOCt 1353 


• 9 55ti_,95i 

• 6611 1 99. 

.6460 69. 

.4467 49. 

, 44 4 ? • 46, 

. 4466: 49. 
.69641 46. 
.646« I 4 6. 
. 0300 '» 00. 



















SOLAR SPECTRAL JRRADIANCE 
STANDARD CURVE, ABRIDGED VERSION 

j " • 

V WAVELENGTH IN fim 

• SOLAR SPECTRAL IRRADI ANCE AVERAGED OVER SMALL BANDWIDTH 
CENTERED AT A. IN W-m-2-Anv 1 


PERCENTAGE OF THE SOLAR CONSTANT ASSOCIATED WITH WAVELENGTHS 
SHORTER THAN A 


SOLAR CONSTANT - 1353 W.m’2 

* E A p o-A 

0.115 .007 1 x 10-4 

0.14 .03 5 x 10-4 

0.16 .23 6 x 10 4 


E x 

Po- X 

.007 

1 x 10-4 

.03 

5 x 10-4 

.23 

6 x 10-4 

1.25 

1.6 xlO-3 

10.7 

8.1 x 10*3 


66.7 

63.0 

70.9 

130 

232 


* 1 E A p o-A 

0.43 1639 12.47 

0.44 1810 13.73 

0.45 2006 15.14 

0.46 2066 16.65 

0.47 2033 18.17 

0.48 2074 19.68 

0.49 1950 21.15 

0.50 1942 22.60 

0.51 1882 24.01 

0.52 1833 25.38 

0.53 1842 26.74 


A 

E A 

0.90 

891 

1.00 

748 

1.2 

485 

1.4 

337 

1.6 

245 

1.8 

159 

2.0 

103 

2.2 

79i 


Pp-X I 

i 63.37 
| 69.49 

!'■ 70.40 

T : 

84.33 

88.61 

91.59 

93.49 

94.83 

95.86 

96.67 

97.31 


0.54 1783 28.08 

0.55 1725 29.38 

0.56 1695 30.65 

0.57 1712 31.91 

0.58 1715 33.18 

0.59 1700 34.44 

0.60 1666 ' 35.68 

0.62 1602 38.10 

0.64 1544 40.42 

0.66 1486 42.66 

0.68 1427 44.81 

0.70 1369 46.83 

0.72 1314 48.86 

0.75 1235 51.69 

0.80 1109 56.02 


8.0 

10.0 

15.0 

20.0 
50.0 . 


97.83 

98.22 

98.50 

98.72 
98.91 

99.06 

99.34 

99.51 

99.72 
99.82 

99.88 

99.94 


4.8 x 10 2 99.98 

1.5x10-2 99.99 

3.9x10-4 100.00 




reproducibility op the 
ORIGINAL PAGE IS POOR 


SAiaft V*ci«n JjOO 10 6|VV»* I * hlt#m> 

• IS *• M—jiesO, IN M* ** IQ «*t* *•* • 


*no im 
*eioj uvo 
*o?o 1 1 ro/ 

OllilVif 

•o*o; im; 
•cso i 1 *? 
-3-3HM? 
*0 10 !|>»9 


— 


...j 

-*•/ 

...1 

.... 

— -9 

-.•0 

7 

- - - B 

* 

3553 

5 /a 

5t 6 

55 7 

5*4 

9*3 

514 

S?7 

5// 

>14 

9 1 6 

MIC 

4 1 1 

9.2 

—J 

*17 

-a) 

*61 

*6/ 

*S? 

*ol 

• 4* 

IMS' 

51 ) 

5/7 

536 

9*5 

9* 1 

6*1 

5-V 

9 3.9 

9?) 

>o« 

in? 


^*5 J 

*1/ 

*70 


*09 

• 69 

*77 

*-* 

5/J 

if -3 

5)4 

5 — 

9*9 

5*4 

59? 

54* 

611 

6)6 

05 V 

65) 

3- VO 

6*7 

f.?t 

94 1 

5SI 

4- / 

%*• 

594 

>49 

61* 

61/ 

);*.6 

6/3 

t?8 

0*0 

690 

0fc6 

74- 

)/« 

1)5 

?-• 

Ml 

30 ro 

7 77 

7 79 

7/2 

770 

1 7/ 

7 76 

7e 7 

741 

»4t 

14 J 

)>*i 

7/7 

7 7 b 

7 3/ 

*4l 

0-6 

60 4 

519 

9b* 

961 

50V 

3543 

560 

594 

55# 

>56 

59) 

5*4 

9-9 

5*3 

9*V 

>** 

3100 

55) 

6*4 

fcl* 

7*3 

709 

749 

• U 

• 10 

• 49 

7-8 

3110 

741 

?n 

7 e* 

7 75 

7*0 

M2 

70 9 

7 C0 

IV 7 

IU 

3120 

744 

727 

7)9 

7** 

JaI. 

757 

702 

103 

76? 

7bV 

3W0 

757 

75* 

751 

75 1 

79* 

761 

77| 

7e0 

7o# 

145 

31*0 

S3- 

eco 

7/7 

71) 

111 

71) 

714 

7)0 

7*2 

75/ 

3153 

70l 

7tb 

709 

7*4 

7 Jo 

?/> 

705 

04* 

0e9 

60/ 

3160 

fcbd 

6*7 

71? 

7)0 

7J4 

79* 

0)6 

B// 

• 34 

• 5 / 

3170 

0 65 

67* 

#8/ 

■ 79 

894 

i ?** 

7)4 

7)n 

7*1 

790 

3 HO 

77* 

79) 

■ 01 

oO) 

08 1 

>95 

79) 

/?/ 

772 

7 7> 

3143 

'7*4 

•00 

• 1* 

0 JO 

i B — ) 

■t «5* 

*6) 

• a* 

#4> 

VII 

3200 

415 

41 B 

41* 

41* 

415 

40 ) 

*4? 

• BO 

■ 6# 

• 61 

3210 

■ 50 

i •** 

; 6-j 

o-5 

o-e 

• 50 

05 1 

•90 

•* 7 

#)9 

3220 

• 29 

BOO 

1 780 

777 

7M 

. in 

7 70 

7 #/ 

74e 

• 06 

32)3 

6 1) 

• 2* 

63* 

• */ 

05- 

666 

• 73 

on* 

• 43 

094 

32*9 

40* 

40* 

41/ 

411 

400 

400 

•4 s 

40V 

415 

9/7 

3250 

4b2 

47| 

4-5 

H22 

10-7 

10 00 

110/ 

HH 

1 112 

1 1 19 

J2M 

1 124 

11)5 

HJ9 

11)9 

112/11)15 

in? 

nil 

n 10 

llOa 

3270 

HO 2 

10 79 

106# 

1V*3 

H15 

99* 

9o7 

40V 

474 

47a 

3290 

471 

467 

46) 

46- 

4r0 

1003 

1011 

lOoa 

1104 

111? 

3240 

HH 

1 12 ) 

11*0 

11*7 

1 HO 

;u5i 

H*4 

IHV 

HJ5 

Ml* 

3390 

H 0 3 

1080 

1061 

103* 

101611011 

IM) 

To/# 

(022 

10/1 

3310 

10 21 

lOJv 

io*r 

105* 

1 5b5 

•107) 

10 77 

1476 

10b/ 

1868 

3320 

1065 

10 7# 

1060 

1091 

la -a 

‘noi 

10 70 

14*4 

10)7 

lu Jl 

)))) 

1035 

10*0 

10-8 

100b 

12a: 

» l 105 

11)7 

11*5 

1 1-9 

H-0 

33*0 

1151 

11M 

1179 

il to/ 

IH5 

U H5 

1H) 

il». 

H 20 

10l- 

33*9 

U34 

103) 

>0)7 

10-5 

1090 

*10 33 

13/1 

1 4 l 7 

10/0 

IV*/ 

1)40 

107* 

IC9* ;10«4 

IV40 

WaUIOia 

1079 

10 95 

10-4 

to- 1 

3)70 

10 36 

10 31 

1 C 2 B 

toll 

105/ 

' 10 49 

HO) 

IV H 

to- 

lOaa 

3390 

1065 

1094 

1095 

1000 

1 0 -- 

• H/5 

1135 

11 Jl 

ll 36 

1 Ul 

3)40 

1110 

ire* 

107* 

101/ 

1070 

: 106) 

10*4 

IftJj 

1 0 1 J- 

9«- 


3*GC, «o3 1 

3*10 1076 10 
3*20 1129 U 
3*J0 4/1 1 

3**0 1103 II 
3*59 10*6 IS 
3*60 IW'I II 
3*70 10 73 1C 
3*15 1010 |{ 
3**0 1 1 .1 9 • 11 

3500 1117 II 
3510 ;1&2* l! 
3550:1116 I 
,35)3 1513 II 
35*0 i I?-# li 
I 3550 1 1 16 7 |l 
3590M32* l< 
3570 635 i 

3560 1 *66 II 
35*0 ! 11*6 1 

3600 10*1 1 

36io »ow i 

3655 1131 1 
36 30 1 3 *•> 1 
36*0 -e? 1 

3*6 5 I t 5 7 l 
3660 15*5 l 
3670 153* 1 
36*5 1 1 5 b 1 
36*0 1510 I 

3750 ) 1 00 1 
3710 15-3 I 
37?* 111)1 
3 7 )> ’ 1170 1 
37*0 1051 I 
3760 1576 I 
3765 1 555 1 
>7 70 1 15** 1 
JlrtO* I 355 1 
3740 j 11// I 

3650 14 M ) 
J*U‘ 11*0 1 

W.< o — 
3*)) *65 

3 1**0 11*6 1 

3«S0 1556 I 
3b* 0 ll«* I 
3 b7o* 11161 
3**0 113* I 
3000 U6« I 

3*0t! I ID* I 
j«tt;»t66 i 
)4?f • •*» 
36)0* #•* 
)!*) 103* I 
)4S6. *70 

3**) 7 >- 

3*70 1136 
36*0 103* 
)««l 170 3 


07* 9/J 

10 SO ,10 i5 
1150 114* 

*53 *57 

1110 1116 
1051 13*1 
115* till 
107J 10)1 
1046 1 0 4* 

1 1 >5 i/«i 


1136 IDs 1 
1451 1053 1 
11*0 H55 1 
1556 1531 1 
15*1 15)6 l 
105* 1417 l 
4 o 1 *16 7 

o? 7 a/7 

107* 1155 1 
1100 1105 1 

1051 1016 I 
1491 4*/ 

111© 1193 1 
1 40 1 1467 I 
i- 1)16 14 1 V 1 
I 1163 1 1 75 I 
’ |5*« 15*0 I 
1 15)9 15)* I 
>1151 1159 1 
. 1557 | 5c« l 

* list 11 SB 

• 15** 15) ) 

> 1156 1133 
7 11)6 1146 
1 146* H4v 
7 | l J3 1166 
t 151 • 151) 
j Dll i Jiy 

> 1 36 1 i )*?- 

7 10*6 to* rr 


9s| I 690 1 
i la* ; m* i 
10/9*1066 l 
4-1 : 409 I 
1153 1151 | 
114411100 » 
I07o 1309 | 
iv«£ji0>9 I 
lot V i 1457 l 
1 /co ? 120 7 1 

1140*1156 1 
1 J 5 7 1039 1 
1106 116) 1 
1537 15*1 1 
15 )3 * 1516 1 
101 J 101? 1 
4„s- 691 
•50* 659 
1 HO f- 11 78 I 

u**;n)9 i 

■ t ' 

1016* 1055 I 

446 9*9 : 

10/0 1060 -I 

10 JB 1016 
14 5 7: »3>* 
ll«*s 15C6 
1 5* J 1557 
1553 1547 
1153 1153 
1543 155* 


1069 1073 
1150 1157 
9*0 *06 

108) 1090 

1115 1196 

1159 U)l 
1009 1075 
1 0 2a 101* 
H-0 IV? 
1150 1157 


1076 1 ) *9 I 
10*10 10*6 I 
Ha* 1500 ] 
15-0 15*7 I 
Hi) Hit 1 
105* 1056 I 
696 a*) 

■56 69* 

i 1196 1197 
It 90 1066 

1039 1039 
10 79 11.57 
14 7* tO o6 
I 060 Vb! 

1369 lu-9 
I 1551 153) 

• 1516 1550 
1160 11*9 
II** 1171 
> 151) it *0 


t?H 155* 
15H 1179 
1160 1 l»5 
10-9 10)7 
110- u 0 3 
151 t 1557 
1505 11*9 

: » j j ) i j* .r 

I J 1 5 15** 
< 10 76 1075 


1739 M*» 
It'D 1741 
| 746 | 74- 
1667 |006 
1604 1694 
INS6 I6u6 
1053 10** 
17*) 17*6 
1 695 Mo- 
lten 1091 

H*> I 7 04 
U?t U25 
1616 If 10 
1 7 79 W M 
I 7 75 im 
1701 1770 
l 776 1770 
1775 1770 

17)6 I no 

*735 17)5 


510*176* 
550 i 1 766 
5)3 1 PH 
5*0 » 1669 
560 i Mbs 


17)6 17*0 
1771 1775 
1763 1760 
|090 l 040 

1665 1 66 l 
l 07 ) *076 
*640 1049 
l 75 b II JO 
1701 1766 
1753 1717 

10*6 1630 
l 16** 1659 
1*17 1*79 
15** ISsJ 
i 1664 ) be 3 
1799 10*0 
' 1645 H-5 
l |7<)v 17 a 6 

: 1015 hh 

. 195V 1*14 


1907 U0* 
1790 1741 ; 
1 6 ? 7 1*31 
10*0 I960 
1 600 1*03 
1931 1437 
1964 1970 
1977 1976 
1963 1465 
1966 1906 


*500 I 1490 
*610 50*0 
*550 2076 
*5)0 • 210.3 
*5*0 209>. 
*550 2061 
*660*5011 
*670* 501* 
•5so ■ 5064 
*590.2077 


1 1 Jj* 1 1*- I 
1 V — — 1496 
if) -J. 
-z/ *•• 

151*: i/19 I 
l 1*1 IIM I 
lift 11 0 1 I 

> IUi HOs I 
' 1 1 7|« 1 1 7 1 | 
>1167(1169 1 

!■ 1/V)! l?t? I 

> 14 3/ * 1 0 1 5 
l 7 79- 74* 

» 0-8* 9 51: 

. lJJ/,1#/- ! 
1 *1 1 B t I 

I •*). . 47.1 I 
i l3/*»il*r 
» i»/4i:(9*4 

> I 7 )C » 1 7 )* 


1 754,1716 1 79 7 
UuS 1 7o 7 174* 
104IM001 M6s 
I *6* 1665 H*J) 
164U095 16 7 9 

1 6-4 1 16*5 IVm 
1006 1*71 1 7v6 
I 160 I 7*5 17*4 
1676 1679 1677 
1 74 1 1 70| 1713 

t>>Jir*6 nil 

!*/• If.’d 135/ 
1744 1)4) 1141 
l?/ltl777 1776 
1764 I 764 1 764 
1 7 7 1 .1 7 75 1 7 7) 
1/70 1776 1776 
17*7 I7». 6 life? 
1757 1757 1 75s 
I I/O 1 7 JO 1754 

W-* I l 7*0 175! 

INVllMl 1 7 70 
1767 176* 1761 
1 0.0* i 1674 ft 0 7> 
IbbO • 1063 1 6b 1 
I077l(b79 1601 
I 745 * 1 706 1 710 
I7JU 1731 1754 
1 7« 7 1706 HbO 
I 715 1700 1699 

1031 1621 )b09 
lit# * 150,6 1*44 
1 *b« I*b : 2 l-S»S 
1593 >1606 1595 
1068.160? 1066 
16*0 1697 1040 
1 7ua 1 1 7 19 1756 
1743 1740 1 eO 2 
14191051 1022 
1919,10)7 loll 

17*7^74* 1741 
1 1***1 796 1 744 

lo j 7 ■ i a»o >b*o 
1 85? ’ I fei/ H69 
1413 5 141 7 1414 
19* 7 » 1 9^ 1 ) 9^>* 
157 J , 147* 1975 
197*! 1972 1969 
I960 (i960 1960 
1411 l 197* 1476 


l 501015016 . 

50*1*53*1-. 
1 2047-5049 , 
5t02'210t , 
i 5300.50*2 
2339*5058 , 

! 201 J '50 13 
505015033 
1 2304 5071 
* 2077,5077 


INI 1701 
1 704 » 704 
1*65 1*64 
H*« 1 0*6 
167* IM* 
1 04 7 1644 
1 759 1 7)3 
17*5 175? 
10 74 I 60 I 
I 729 17/6 

IN? 1 9 VI 
I o5 V H/3 
17*7 l 7 s* 
17 76 IN* 
l /t.0 I 7** 
177* 177* 
W >9 177* 
1701 l?9- 
17/4 17JI 
1754 1724 


1769 17*1 

1700 |/0/ 

1730 1120 
1609 106/ 
100) 1666 
1605 I 66 1 
1710 172/ 
17*1 »T*o 
17*2 17)3 
1640 107/ 

1600 l 5o9 
|*02 1*76 
1500 HH 
i 1050 lo?a 
I 1092 1696 
- 1043 1645 
1 1*3 1 79* 

I H05 160/ 
l ie/3 In// 

> HI* 191/ 

1 7o9 1 7o9 
I H 1 0 Hie 
H*V lo-- 
t HOI Mas 
14/2 14/* 
1 1 4b 1 l*b* 

> l*/b 14/6 
I 146? 1966 
l 1505 190/ 
f 14*1 1**0 


6100 1*70 1 
MH H 7 1 1 
6 1 ?4 * I n/4 l 
6l)t»Mo7* | 
51*3 I H64 | 
5153 loj* I 
M90IH0S 1 
61 73 • lf-00 1 
6 HO I ft 74 7 j 
6 l4o( 1*02 I 
I 

6500 ] H 37 | 
6510 ’ Hi? I 
6553 i H 7 9 | 
6? >0 . Uti7 | 
65*0 ; HO 4 1 
5?60 H* I I 
6503*1851 I 
5573 H56 I 
55^0 1 8 )6 | 
6593 | 1*66 I 

5) 30 I H* I I 

6) 10 18)9 | 
5)5 j ! 1036 1 
5)13 . H36 1 
53*0 In 33 
5353 H21 I 

5) 60*1004 
5370 '1793 

6 ) 80 * 17*4 
6)90 17*7 

5*00 1 17*6 
5*10 il 700 
5*53 » 1 7 7) 
54)6 * 1706 
5**0 1 1 763 
5«'VQ . 1755 
6*00 ■ 17*7 
5*70-17*1 
5*00 1735 
5*93,172) 


' 2071.2070 
I 206/ 506 1 
23b0 i 5000 
I /06) 5005 
i /wbat/007 
i 50*8 1 50*0 
1 20 J/ ' 50 32 
I /V2I -50H 
> 2C/0/O56 
* /0* I 1/0*1 


203V 2037 
2-6* 206) 
2. 33 21V J 
VI 09 2U94 
207* 2064 
’ 2UH 5413 
l VO 1 3 20)3 

> 29** 2300 
I 2-7* 2076 

• 24 76 20 76 

> 206* 2067 
l 5V0V 20^9 
! 2005 2062 
J. 2062 zO 62 

> zO 56 2055 

> .29*3 50-0 
1 2u30 50.24 

* 2V 1 7 2017 
1 533V 2032 
f 20*3 20*3 


20** 20** , 
2C 3fl 20)7 i 
2C2a 2027 . 
2032 20')* , 
?C*1 20*2 < 
23*9 ?u*6 . 
20-0 2C*n i 
■ 2056 2360 . 

2059 2091 . 
1 2061 2V66 1 


12)7 *2*4 
H C 7 no- 
lle* 117- 
H-V (u*6 
1060 1900 
12/0 15/4 

1140 11— 

1301 1)93 

ilsj ni- 
ne* 10 7 I 

1151 IH- 
*V* -3 * 

— 2 ■*?< 
1-/9 * IV I 
121* 1214 
I I 86 11*4 
li/4 H2I 
.1121 H/- 
)U> 1 16 1 
t I 7 7 I i4/ 

> 1184 II 7* 

. 9** -5* 

> 64) 6* / 

• 19)6 H id 
1 Ho* *o«* 
. 7 U 7.11 

I 14 8 1 li?/ 

» 1*60 IM* 

t H«4 16-0 

7.. I /** I /-• 


*9004. 1*70 
*'»>* ' | 9* 7 
*•21 1*7* 
*4n |->s 

-4-9 |-*J; 

*460 1-9I* 

* -04*1464 

* 4.70 V 1.9 75 
*800 , I -7 7 
*-4011992 
' ' . 1 
6099) »-*f 
6310 142- 
6050,1*91 
60 10 I 44 ? 

so -0 1*15 
6O4O 1450 
50*3 l - )6 
6070 145* 
6080 1*07 
60-4 1*91 


Hot 19*2 1 
H-r >*•- 1 
1-/2 HU 1 
1—6 ) I *S 1 I 
14* I H** I 
1-00 1465 i 
1464 1469 

1*77 i-f* , 
1476 I -72 
1462 1461 

14** 14*1 

1-52 19/0 
1900 1 9—4 
140) HO* 

m ) hi* 

14/4 14)0 
HI* 1 4)6 
H5 7 1*56 
HO* HOI 
U/4 |*fa 


1 20b) 208) , 
20-/ 5042 . 
1 /3o5 /C b* 1 

* 50 71 zO 0 s , 

! /9V ■ 2019 

I 1-91 -H*) 

1 Hol t In 7 7 

> 1494106* 

! 1*40-193 I 

► 1-60 1 196* 

. 14*511996 
« 1 4-* H-) 

* j -6 7 1-9 9 
» 1 — 7 H-0 
, H*4 14*8 
) H6* I960 
t 1470. U70 

* l««9 14*1 

* H*6 140* 

1 1*69 1494 

1 

* 1437114)6 
I 1-15 HW 
I H-O 1 B- 7 

* H*« i-O* 

5 l-»6 HI* 

i 1-1/ wn 

S Hi* H »* 

* 1-5/ 1*50 
« **-» 18-1 
B lain ) 4 7* 


2V*9 20*6 4 
/g-2 20-2 4 
2V oO /G no < 
<96/ /V94 4 
/U U 6 1 4-9 | 
H 32 H23 1 
1 e /V Ho* I 
lo6 1 H6* I 
1-1* H2* I 
1-70 H7/ I 

’ 19*1 1407 | 

W- • H7- 
. l-o/ H6:i 1 
» t— > H** , 
1 1-9/ 1-5* 

> 1*60 I-* 7 
1-75 H7) 

I 1*04 H/4 
I 1 96) H02 

> H6* 1-91 


10*4 |.0*4 

I n 76 M 76 
H 74 HI# 
HI) HI/ 
1 46* H05 
Ho j •// 

1 144 1 141 
i 5h* lie* 

I I Vi 17-2 
10)7 H H 


H66 H{-4 I e*4 

H»r H lalrt 
1 0 74 H- H76 
' H 7 1 186# 1906 
i860 H* 7 H*» 
H23 HI 7 HI* 
1746 174- 1745 
17«) 1752 it*i 
If— 11-6 1 ?«7 
(HI! HI 9 #22 


1-3- H31 : 
HO 9 1*4* 

1 M 7 | 8-8 
1.48* 1*0 7 
i-H l-/i 
Hi* Hi* 
l«i) Hi) 

19/8 1417 
1 8 — 1 |**« 
111) 1*7/ 


H*3 H*6 

1 86 7 H*,4 
I KoO Ui) 
Hm 

1096 I #74 
U>2 H.*4 
H5C 1 1*/3 
H 56 H5? 
HIV H-3 
H55 1*9- 

H-5 .les- 
H3* 1 0) 7 
H3 7 H3# 
lo)9 Hi* 
H/4 H/4 
HH lo la 
1 tt J 9 HoJ 
1 740 HoV 
1740 1 7*0 
1707 1107 

1789 1709 
1774 1/78 
1 7 70 1 7 6 « 
. 1 7bb 1705 
I 7*1 I 7b| 
1753 V7»V 
i 7 - b 17*0 
1.7 -V. 17)4 
17)0 1724 
I 1721 1721 


H-4 11052 I 
1-71 107* 1 
H-5 1.401 I 
H-4 1084 1 
18 1 6 1 •64 I 
H 5 a H 56 I 
H5l H22 I 
1-5" H)3 I 

N*/ n** 1 

H 5 3 ,1562 1 

J 

H—MVO 1 
H)7 H37 I 
H JO H34 1 
Hi* 103) 1 
1 a/#- i 1 0 2 7 : 
Hi? Hi* ; 
«-•! 17-9 
H-O 1790 
1 704 1704 
17«7il#7 

1 7o* ! 1 TO 
l 77a 1777 
1/98 1761 
17b5 1705 

1 7l j 1794 
1791 1750 
17*5 17** 

17)4 1730 

172b .1727 
1?2V '1720 


1456 H59 I 
,*7 7 H?4 | 
Ms i Ha6 1 
HO H Vo | 
H 96 I e 40 I 
H2J H52, 1 
H59 U26 I 
Hi) 1 0)3 1 
1 090 Im I 
H90 U»9 | 

H-l H-0 I 
1 • J6 H30 ;j 
( b J9 H jb ] 
193) Hit ; 
n?9 1.53 
HI* HI) 
17*1 l H* 

1?C4 1 7 a 9 

No# HeO 

17# 7 1/80 

i 1 7 c 2 1702 
(779 177* 
17b7 17*7 
1 76* 1 76* 
l- 1 797 1 797 
17*4 17*6 
17*3 17*2 
i- 1/39 17)6 
* 1729 172* 

1 1719 1719 


563O ; 1041 I 
5610.1646 I 
5620,1649 I 

56) 0 H49 I 
560 51/01 1 
6055 170* 1 
5660 ‘1 700 1 
56 70 5 1712 I 
603) IH2 I 
5690 * 1 71 1 I 

57) 0-1710 | 
5710 1712 i 
5720 171* i 
5730 1718 ; 
5 7*3 U 72V 
5759 1714 
5700*1719 
5773 17H 

S Hu 1717 
5793,1710 


20*0 20J4 
23/4 20/4 
20/9 /OiU 

5ojd /0J4 

23*7 2b*/ 
20*7 2w* / 
2093 <09* 
20 92 2891 
2394 /06< 
I 2075 /0lo 


171* lit* 
1713 .1713 
171* 171* 

iu j in j 
i 71* IM* : 
1713 171) 

1 7 H 17U 
170 0 1 70 7 
1705 1 70* 

1 70) 170 3 


171* 171) 
i7i* tu- 
rn* 171) 
171* l?H 
171* 171* 
ill? P12 
1719 1734 
1 706 1 7:0 
170*1/:- 
173/ 173/ 


: 1 >01 1791 1 
1640 1097 I 
169) 1693 I 
1 64 j He 4 1 
He6 Hc9 ! 
Hal 1601 
la 7 8 16 7e 
‘1075 1679 
. 1072 1*7/ 
1669 1664 

1005 1665 
»•*? 1-9/ 
Mb J 1 09.* 

1 64 7 H6n 
(652 1*51 
H* 7 H*6 
16*1 H*l 
16)0 16)7 
16)6 1*39 
16)3 163/ 


1 73 v 1700 , 
H-9 1 0 — a 
14-/ 14-1 
19 8 8 i 6 S O 
Ha* Ho- 
It *7 itsV 
H 7 7 H77 , 
U 7* It 7* 
10 7| H 71 ■ 
Hoe 1 .- 6 - : 

let* He-- 

,*■%/ i* » 4 
14 0. #09 — ' 

' lass Is -9 

1098 1698 

1 H*9 »0*V 
16-0. i6*u 

H J 7 I 6 J6 
• Hi* Hi* 

\ 16)2 1631 


H44 levs 
: H>5 10 — — 
16-1 1 9*5 
103/ 1*37 

lbs ). in? 

HnC 1 9 

H/0 "T* 76 
107 ) 1*73 
H7) H 73 
1st 7 Isos 


l“9S 1993 
1.63.* 193) 

H* -' H*# 

H-* I o* 3 

16 1- 1 Q i* 
HJ* H JO 
HH 1*U 
Ui« 16 i I 


1722 172/ 
17/7 1/2* 
1732 17)1 
1 7/4 1 >/• ( 
172* 1723 
1710 IMS 
WC6 1739 
1647 164/ 

1 ,1 64) H4< ; 

' ;H42 1*4/ 


► it 045 I*-*; 
r 1697 H-* i 
1 164# U44 
1 wci w:i 
1 1 70* 17:- 
I 173? WO* 
l W12 111? 

) 171) 1 71/ 

I 17U WH 
) WU WH 

1 1711 1711 
) : W1J WH . 
i ww irw 

V 1719 W 1 4 
) 1723 1 723 

• 1714 .171- 

- WH 171* 

7 1717: WW 
6 1 1 H W H; 

• WH WH 

3 171) W13 

- 171* WH 
) I 7 13 |7 1 J 
*171* WH 

• WH WH 

V WU WU 
Wi4 170* 

>11735 17#* 

1 /: • i 7 8 J 
/(,WC/ Wli 

4: ls4# 1 04# 

*] H-» 10 4* 

*' 1043 H*- 
7: Hol 10-9 
/ 169/ H tz 

4 H?4 1074 
6 16/6 t 0 79 
3 1673 1 0 >z 
3 le/0 H 7v 
a 1 0S9 10s* 

J He) 1 60 * 

I |-sl »*>» 

s Hs7 H 9 1 
1) Ha) I-9Z 
b H-* H*/ 
i Ib-j la * j 
I- l b j 4 iiia 

10 16)6 Iti) 

11 1*3* 1*)# 

II 1631 1*34 


M-4 
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Integer* 2 
1*2 

(16 bits, with 
2 bytes, each) 

1 

2 


4 

1 

6 

7 

8 

! 

9 

I 

11 

12 


15-36 


Integer* 4 
1*4 

(32 bits, with 
4 bytes, each) 


Bytes ! Description 

1-2 Channel number 

. . i ' 

3-4 Total number of active 

channels 

5-6 Number of video 

elements/scans/ 
channels 

7-8 Line number 

9-10 Total number of lines 

11-12 Month 

I 

13-14 Daiy 

• j 

15-16 Year 

17-18 Hour 

19-20 Minute 

I 

21-22 Second 

23-24 Tenths of milliseconds 

l 

i 

25-28 Tenths of milliseconds 

into day 

29-72 Channel status 

0 active 

- j 1 not active 


Latitude 


37 

- 1 

73-74 

Degree J 

38 

75-76 

Minute ’ \ 

39 

77-78 

Quarter - 1 

■j..::.. . 

............ 

second / 

40 

79-80 

Degree J 

41 

81-82 

Minute 1 

42 

83-84 

( 

Quarter- 1 



second 1 


Longitude 
(w+) 


N-2 




Integer* 2 
1*2 

(16 bits, with 
2 bytes, each) 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

■ ■ I ; ■ 

54 


55-57 


58-60 


Integer*4 

1*4 

(32 bits, with 
4 bytes, each) 



Bytes 

85-86 

87-88 

89-90 


91-92 

93-94 

95-96 

07-98 

^9-100 

iqi-102 

i 

j 

. j 

10j3-104 

1(^5-106 

107-108 

109-114 


115-120 


Description 


Degree 

Minute 

Quarter - 1 
second 

Degree 

Minute 

Quarter- j 
second 

Degree 

Minute 

■ i 

Quarter- 
second 


Roll 


Pitch 


Yaw 


Degree \ 

Minute ) Zenith 
\ Angle 

Quarter- 
second I 


Degree 
Minute 
Quarter- 
second 
Latitude 


Degree 
Minute 
Quarter- 
second 

W. Longi-/ 
tude 


Center 
of 1st 
pixel 



Integer* 2 
1*2 

(1C bits, with 
2 bytes, each) 

61-63 


64-66 


67-69 


70-72 



Integer* 4 
1*4 

(32 bits, With 
4 bytes, each) 


37 

38 

3 1 

40 



121-126 


127-132 


133-138 


139-144 


145-148 


149-152 


Description 


Center 

of 

center 
) pixel 


Degree \ 
Minute ' 
Qharter- 
se'cond 
Latitude 

Degree 
Minute 
Quarter- 
second 
W. Longi- 
tude 

Degree 
Minute 
Quarter- 
second 
Latitude 

Degree 
Minute 
Quarter- 
second 
W. Longi- 
tude 


Hot blackbody 
temperature 
sensor '1A' 

(tenth deg Kelvin) 


Center 

of 

(last 

pixel 


Cold blackbody tem- 
perature sensor 
*2 A' (tenth deg K) 


153-156 Lamp 1 Current Motor 

(milliamps) 

157-160 Redundant blackbody 

temperature sensor 
'3A' (tenth deg K) 


Integer* 2 Integer* 4 

1*2 1*4 

(16 bits, with (32 bits, with 

2 bytes, each) 4 bytes, each) 

70-72 41 

(cont'd) 

42 

43 

44 


45 

46 

47 

48 

49 

50 

51 


Bytes 

Description 

161-164 

Lamp 2 current motor 
(milliamps) 

165-168 

Detector array tern 4 
perature sensor ’A' 
(tenth deg K) 

169-172 

Primary mirror tem- 
perature sensor (tenth 
deg K) 

173-176 

Secondary mirror 
temperature sensor 
(tenth deg K) 

177-180 

Primary mirror tem- 
perature sensor 2 
(tenth deg K) 

181-184 

Aspheric mirror tem- 
perature sensor (tenth 
deg K) 

185-188 

Cover temperature 
sensor (tenth deg K) 

189-192 

Scan motor tempera- 
ture sensor (tenth deg K) 

193-196 

Cooler motor temper- 
ature (tenth deg K) 


I; 


197-200 Scanner electronic tem- 

perature sensor (tenth 
dbg K) 

201-204 Monochromator temper- 

ature (tenth deg K) 


integer* 2 Integer* 4 

1*2 1*4 

(16 bits, with (32 bits, with 


2 bytes, each) , 

4 bytes, each) 

Bytes 

Description 

70-72 

(eont’d) 

52 

205-208 

Digital electronic tem- 
perature (tenth deg K) 


53 

209-212 

Detector array temper- 
ature sensor 'B' (tenth 
deg K) 


54 

213-216 

Hot blackbody tempera- 
ture sensor '2B 1 (tenth 
deg K) 


55 

217-220 

Cbld blackbody tem- 
perature sensor *2B' 
(tenth deg K) 


56 

221-224 

Redundant blackbody 
temperature sensor 
•3B' (tenth deg K) 

i . • : 


57 

225-228 

! J 

.■ s 

Scan line offset 
time (tenth micro- 
second) 


58 

229-232 

Scan shift delay flag 


59 

233-236 

Azimuth heading 
(degree) 


60 

: ?.H 

237-240 

:• j : _ ' ■ 

' Ground velocity 

(meters/sec) 


di 

241-244 

Altitude (meters) 


62 

245-248 

j 

Orbital inclination 
^ angle quarter arc 
sec 


v 63 

249 

Pixel radiance values 


for line - open ended 
depending on number 
of pixels on line 


N-6 


Integer* 2 

Integer* 4 



1*2 

1*4 | 



(16 bits, with 

(32 bits, with! 



2 bytes, each) 

4 bytes, each) 

Bytes 

Description 

70-72 

63 

249 

Pixel radiance values 

(cont'd) 



for line - open ended 
depending on number 
of pixels on line 


NOTE: Integer* 4 words 37 thru 57 are alphanumeric (A4) printout. 






APPENDIX O - MODEL ATMOSPHERES USED AS A BASIS 
OF COMPUTATION OF ATMOSPHERIC 


OPTICAL PROPERTIES 


1 MIDLATITUDE SUMMER , 

Ht* 

Pressure 

Temp. 

Density 

Water Vapor 

Ozone 

(km) 

(mb) 

<°K) 

(g/m 3 ) 

(g/m 3 ) 

(g/m 3 ) 

0 

1. 013E+03 

294. 0 

1. 191E+03 

1.4E+0I 

6. 0E-05 

1 

9. 020E+02 

290. 0 

1. 080E+03 

. 9.3E+00 

6.0E-05 

2 

8. 020E+02 

285.0 

9. 757E+02 

5. 9E+00 

6. 0E-05 

3 

7. 100E+02 

279. 0 

8. 846E+02 

3. 3E.+00 

6. 2E-05 

4 

6. 280E+02 

273. 0 

7. 998E+02 

1. 9E+00 

6.4E-05 

5 

5. 540E+02 

267. 0 

7. 2 11E+02 

1. 0E+00 

6. 6E-05 

6 

4. 870E+02 

261. 0 

6. 487E+02 

6. IE-01 

6. 9E-05 

7 

4. 260E+02 

255. 0 

5. 830E+02 

3.7E-01 

7. 5E-05 

8 

3. 720E+02 

248. 0 

5. 225E+02 

2. IE -01 

7.9E-05 

9 

3. 240E+02 

242.0 

4. 669E+02 

1.2E-01 

8. 6E-05 

10 

2. 810E+02 

235. 0 

4. 159E+02 

6.4E-02 

9. 0E-05 

11 

2. 430E+02 

229. 0 

3.693E+02 

2.2E-02 

1. IE-04 

12 

2. 090E+02 

222. 0 

3.269E+02 

6. OE-03 

1.2E-04 

13 

1.790E+02 

216. 0 

2. 882E+02 

1.8E-03 

1. 5E-04 

14 

1. 530E+02 

216.0 

2. 464E+02 

1. OE-03 

1.8E-04 

15 

1. 300E+02 

216.0 

2. 104E+ 02 

7. 6E-04 

1. 9E-04 

16 

1. 110E+02 

216. 0 

1. 797E+02 

6.4E-04 

2. IE -04 

17 

9. 500E+01 

J216.0 

1.535E+02 

S', 6E -04 

2 . 4E -04" ~ 

18 

8. 120E+01 

216.0 

1. 305E+02 

5 0E-04 

2.8E-04 

19 

6. 950E+01 

217. 0 

1. 1 10E+02 

4. 9E-04 

3.2E-04 

20 

5. 950E+01 

218. 0 

9. 453E+01 

4.5E-04 

3;‘4E-04 

21 

5. 100E+01 

2 19. 0| 

8. 056E+01 

5. IE-04 

^3.6E-04 

22 

4. 370E+01 

220.0 

6. 872E+01 

5. IE -04 

3. 6E-04 

23 

3. 760E+01 

222. 0 

5. 867E+01 

5.4E-04 

3. 4E-04 

24 

3. 220E+G1 

223.0 

5. 014E+01 

6. 0E-04 

3.2E-04 

25 

2.770E+01 

*224. 0 

4. 288E+01 

6.7E-04 

3.0E-04 

30 

1. 320E+01 

~234.0 

1. 322E+0 1 

3 i 6E-04 

2- 0E-04 

35 

6. 5-20E+00 

245.0 

6. 519E+00 

1. IE -04 

9^ 2E-05 

40 

3. 330E+00 

258.0 

3. 330E+00 

4.3E-05 

4. IE-05 

45 

1.760E+00 

270.0 

1.757E+00 

1.9E-05 

1. 3E-05 

50 

,9* 510E-01 

276. 0 

9. 512E-01 

6.I3E-06 

' 4.3E-06 

70 

6. 7 10E-02 

2 18. 0 

6. 706E-02 

1.4E-07 

8. 6E-08 

100 

3. 000E-04 

210.0 

5. 000E-04 

1.0E-09 

4.3E-11 




MIDLATITUDE winter 

Ht 

Pressure 

Temp. 

Density 

Water Vapor 

Ozone 

(km) 

(mb) 

<°K) 

(g/m 3 ) 

(g/m 3 ) 

(g/m 3 ) 

0 

1. 018E+03 

272.2 

t. 30 1E+03 

3. 5E+00 

6.0E-05 

1 

8. 973E4-02 

268.7 

1. 162E+03 

2. 5E+00 

5.4E-05 

2 

7. 897E+02 

265.2 

: 1. 037E+03 

1. 8E+00 

4. 9E-05 

3 

6. 938E+02 

?61. 7 

9. 230E+02 

1.2E+00 

4. 9E-05 

4 

6. 081E+02 

255.7 

8. 282E+02 

6.6E-01 

4. 9E-05 

5 

5. 313E+02 

249. 7 

7.41 1E+02 

3. 8E-01 

5. 8E-05 

6 

4.627E+02 

243. 7 

6. 614E+02 

2. IE-01 

6.4E-05 

7 

4.016E+02 

237.7 

5. 886E+02 

8.5E-02 

7. 7E-05 

8 

3.47 3E+02 

231.7 

5. 222E+02 

3. 5E-02 

9. 0E-05 

9 

2. 992E+02 

225.7 

4. 619E+02 

1. 6E -02 

1.2E-04 

10 

2. 568E+02 

219.7 

4. 072 EM- 02 

7.5E-03 

1.6E-04 

11 

2. 199E+02 

219.2 

3. 496E+02 

6. 9E-03 

2. IE -04 

12 

1. 882E+02 

218.7 

| 2. 999E+02 

6. 0E-03 

2.6E-04 

13 

1. 610E+02 

218.2 

2. 572E+02 

1. 8E-03 

3. OE-04 

14 

1. 378E+02 

217.7 

2.206E+02 

. 1.0E-03 

3.2E-04 

15 

1. 178E+02 

217.2 

1. 890E+02 

7.6E-04 

3.4E-04 

16 

1. 007E+02 

2 16.7 

1. 620E+02 

6.4E-04 

- 3.6E-04 

17 

8. 610E+01 

216.2 

1. 388E+02 

5.6E-04 

3. 9E-04 

18 

7. 350E+01 

215.7 

1. 188E+02 

5.0E-04 

4. j IE-04 

19 

6.280E+01 

215.2 

1. 0 17E+02 

4. 9E-04 

4.3E-04 

20 

5.370E+01 

215.2 

8; 690E+01 

4.5E-04 

o 

» 

W 

21 

4. 580E+01 

215.2 

7.421E+01 

5. IE -04 

4.3E-04 

22 

3. 910E+01 

215.2 • 

6. 338E+01 

5. IE-04 

4. 3E-04 

23 

3. 340E+01 

215.2 

5.415E+01 

5.4E-04 

3.9E-04 

24 

2.860E+01 

215.2 

4. 624E+01 

6.0E-04 

3.6E-04 

25 

2. 430E+0 1 

215,2 

3. 950E+01 

6.7E-04 

■ 3,4E-04 

30 

1. 110E+01 

217.4 

1. 783E+01 

3. 6E -04 

1.9E-04 

35 

5. 180E+00 

227.8 

7. 924E+00 

1. IE-04 

9.2E-05 

40 

2. 530E+00 

243.2 

3. 625E+00 

4.3E-05 

4.1 IE -05 

45 

1.290E+00 

258. 5 

1.741E+00 

1.9E-05 

1. 3E-05 

50 
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